list - 我如何将值存储到 Scheme 的读取中？或者那是不可能的？

Question

(define (getFirstFew lst)
  (cond
  ((= (read) 0) '()) ;returns nothing
  (else(cons (car lst)(getFirstFew (cdr lst)(- (read) 1))))))

这是我上面的代码。所以我正在尝试编写一个程序，它将从列表中获取第一个 x 元素(用户可以选择 x 是什么)。例如，使用 (getFirstFew '(1 6 2 4 5)) 输入 4 将导致 '(1 6 2 4)。

我目前的问题是，使用 read 两次，它会被调用两次，然后中断程序。有没有办法将用户输入的任何内容存储到变量中，然后在整个程序中使用该变量？或者这个问题有另一种解决方案吗？

Answer 1

请注意，您只需一次 执行read，并存储该值以供将来引用。通常我们会使用 let为此，但鉴于我们还必须遍历列表并在每次迭代中递减 x，named let会更合适。试试这个:

(define (getFirstFew lst)
  (let loop ((lst lst) (x (read)))
    (if (= x 0)
        '()
        (cons (car lst)
              (loop (cdr lst) (- x 1))))))

它按预期工作:

(getFirstFew '(1 6 2 4 5))
> 4
=> '(1 6 2 4)