减去球拍中的数字列表

Question

我正在尝试使用球拍中的递归计算数字列表。 功能如下：

(define (sub lst)
 (cond [(empty? lst) 0]
       [ else (- (first lst) (sub (rest lst)))]))

这似乎是不正确的，因为球拍从左到右执行减法。 即例如：

(- 1 2 3 4 6)假设为-14。 但是，当我以与通过递归方式给出列表相同的方式进行操作时，例如(list 1 2 3 4 6) ，结果为4。我该如何解决呢？

Answer 1

因此，您的函数会执行以下操作：

(sub '(1 2 3))      ; ==
(- 1 (- 2 (- 3 0))) ; ==
(- 1 (- 2 3))       ; ==
(- 1 -1)            ; ==
; ==> 2

您的职能需要做的是：

(- (- 1 2) 3)  ; ==> -4

还有0和1参数的特殊情况：

(sub '())  ; ==> 0  (identity of - is 0)
(sub '(1)) ; ==> -1 (- identity 1)