方案语法帮助：使用我在另一个程序中定义的函数

Question

我创建了两个函数来帮助我解决子集和问题。不过我似乎遇到了错误。它告诉我，我正在向 list-sum 传递两个参数。我已经在这个程序上闲逛了几个小时了。我想知道是否有人能发现这个问题。

这是我的 list-sum：

(define list-sum 
  (lambda(lst)
    (cond
      ((null? lst) 0)
      ((pair? (car lst))
       (+(list-sum (car lst)) (list-sum (cdr lst))))
      (else
       (+ (car lst) (list-sum (cdr lst)))))))

这是我使用 list-sum 的函数：

(define ssum
  (lambda (n l)
    (cond
      ((null? l) #f)
      ((=(-(- n (car l))(list-sum l)) 0) l)
      ((ssum (cons (car l)) (cdr (cdr l))))
      (else (ssum n (cdr l))))))

它告诉我，我已经用一个调用了“compound-procedure #(number) ssum”论证并且它需要两个论证。我将其传递为 (ssum 8 (list 1 3 5 7))。

我的问题是：

1. 我的功能设置正确吗？
2. 有没有更简单的求和方法 我的 ssum 中列表的数字？
3. 我对Scheme也很陌生。如果你看到 缩短代码的明显方法， 请随时纠正我。

Answer 1

我强烈建议你尝试racket，它的IDE有这个很棒的调试器，只有ODB 可以说更好。

我没有深入研究您的代码应该如何工作，因为 ((ssum (cons (car l)) (cdr (cdr l)))) 中实际上有几个错误 line：您仅使用一个参数调用 cons，但此 cond 子句中也只有一种形式，而它后面应该有一个测试和至少一个表达式。

Answer 2

list-sum 函数可以优化。首先，可以连接两个 (list-sum (cdr lst)) 表达式，并且可以将三个 (car lst) 表达式减少为一个：

(define (list-sum lst)
  (if (null? lst)
      0
      (+ (let ((l (car lst)))
           (if (pair? l)
               (list-sum l)
               l))
         (list-sum (cdr lst)))))