Scheme尾递归函数的语法错误

Question

我正在创建一个尾递归函数，它通过传递一个系数列表和一个 x 值来评估多项式。

示例：计算 x^3 + 2x^2 + 5，因此用户将在函数调用 (poly '(5 0 2 1) 1) 中传递列表 '(5 0 2 1) 和类似 1 的 x .

我不知道为什么会出现以下错误：

if: 语法错误： (if (null? (cdr lst)) (+ total (car lst)) eval-poly-tail-helper ((cdr lst) x (+ (* (expt x n) (car lst)) 总计) (+ 1 n)))

(define (poly lst x)
  (poly-assistant lst x 0 0))


(define (poly-assistant lst x total n)
   (if (null? (cdr lst))
      (+ total (car lst))
      poly-assistant((cdr lst) x (+ (* (expt x n) (car lst)) total) (+ 1 n))))

Answer 1

最后一行poly-assistant 之前需要一个左括号。

在 Scheme 中，函数应用程序以左括号开头。而if 需要 2 或 3 个操作数。

使用能够匹配括号的更好的编辑器（例如emacs）。

cdr 之前的两个左括号看起来很可疑。你可能只需要一个。

学习使用您的 Scheme 调试器，或者至少添加调试打印。