Question

我正在编写一个程序中的程序，它使用递归来遍历列表，并在计数器达到一定数量N时停在某个指针上

(define (functX N lst)
  (define counter 1)
  (cond
    [(empty? lst) empty]
    [(negative? N) empty]
    [(< (length lst) N) empty]
    [(<= counter N) ((set! counter (+ counter 1))(cons (first lst) (functX N (rest lst)))))]
    [else empty]))

我不明白，为什么从底部的第二行给我带来麻烦：我得到的错误是“程序应用程序：预期程序，给定：'（1）（无参数）”

Answer 1

你把它括在括号中两次。 Scheme中的表达式具有(func-expr arg-expr ...)形式，因此第一个表达式必须求值为函数。所以，如果你这样做了：

(define (f n) n)
((f 5))

它会评估(f 5)然后它会尝试评估(5)这是一个错误。

编辑：一些澄清。

括号中包含以下内容两次：

((set! counter (+ counter 1))(cons (first lst) (functX N (rest lst)))))

首先它评估set!并减少到（其中n是一个数字）：

(n (cons ...))

然后评估

cons及其参数（其中x为结果）：

(n x)

然后尝试将参数x应用于函数n，但由于n是一个数字，因此会导致错误。如果您想要进行两次单独的计算并且仅返回值1，则可以使用begin。

(begin (set! counter (+ counter 1)) (cons (first lst) (functX N (rest lst))))

<强>更新

这是一个看起来没有伏都教的事情（因为变异是邪恶的）。

(define (take n xs)
  (cond
    [(empty? xs) empty]
    [(negative? n) empty]
    [(eq? n 0) empty]
    [else (cons (first xs) (take (- n 1) (rest xs)))]))

Answer 2

您应该考虑在递归调用中递减N并完全删除counter变量。

Scheme中命令的执行顺序

2 个答案: