(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 两次,它会被调用两次,然后中断程序。有没有办法将用户输入的任何内容存储到变量中,然后在整个程序中使用该变量?或者这个问题有另一种解决方案吗?
最佳答案
请注意,您只需一次 执行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)
关于list - 我如何将值存储到 Scheme 的读取中?或者那是不可能的?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/33703435/