lisp - 对数字 u 和列表 x 求和的方案函数 u+x1+x2

Question

我是 Scheme 的新手，正在尝试创建函数(在 f u x 中)，u 是整数，x 是列表，f 是二元函数。方案表达式 (in + 3 '(1 2 3)) 应返回 3+1+2+3=9。

我有这个但是如果我这样做 (in + 3 '(1 2)) 它返回 3 而不是 6。我做错了什么？

(define (in f u x)
  (define (h x u)
    (if (null? x)
        u
        (h (cdr x) (f u (car x)))))
  (h x 0))

Answer 1

根据我对你的 in 函数应该做什么的理解，你可以这样定义它:

(define in fold)   ; after loading SRFI 1

:-P

(更严重的是，您可以查看 my implementation of fold 以获得一些想法，但您应该提交自己的版本作为作业。)