scheme - 在方案中反转数字时参数数量错误

Question

我正在尝试在 Scheme 中编写一个程序来反转给定的数字。然而，问题是虽然我的递归正确，但 Scheme 说我的递归调用的参数数量不正确。

这段代码有什么问题？为什么会出现参数错误的错误？

(define (rev revs n)
    (cond ( (= n 0) 1)
        (else ( 
            (rev ( ( + (* revs 10) (remainder n 10) ) (quotient n 10) ) ) 
            ) )))

Answer 1

你有几个错误的括号，基本情况是错误的(你必须返回累加器)。试试这个:

(define (rev revs n)
  (cond ((= n 0) revs)
        (else 
         (rev (+ (* revs 10) (remainder n 10)) (quotient n 10)))))

请记住，在 Scheme 中，圆括号表示“函数应用程序，如果您用 () 包围某些内容，解释器将尝试将其中的内容作为函数应用。在放置这些 ().