方案错误：应用程序：不是程序； [关闭]

Question

我在 Scheme 中练习递归。我下面的代码用于返回连分数的值：

(define (fun n v)
  (define (fun-wl b v) (
                        (if (null? b)v                          ;return a value
                            (fun-wl (cdr b) (/ 1 (+ (car b) v)))))) ;first arg.list, second(1/(car b+v))
  (define (iter a b)
    (if (null? a)(fun-wl b v)             
        (iter (cdr a) (cons (car a) b)))) ;reverse list
  (iter n null)
  )

这是我对方案的输入：

(fun '(1 2 3 4) 6)

我的代码出现了这个错误：

application: not a procedure; expected a procedure that can be applied to arguments given: 72/103 arguments...: [none]

Answer 1

你有括号问题，在下面一行。请记住，在 Lisp 中，表达式周围的一对括号表示“应用函数”，在这种情况下，我们不应用 if 表达式的结果，我们所做的是返回if 表达式本身的值：

(define (fun-wl b v) ( ; that one at the end is wrong!

缩进也可以改进，正确格式化代码对发现这类问题有很大帮助。试试这个：

(define (fun n v)
  (define (fun-wl b v)
    (if (null? b)
        v
        (fun-wl (cdr b) (/ 1 (+ (car b) v)))))
  (define (iter a b)
    (if (null? a)
        (fun-wl b v)             
        (iter (cdr a) (cons (car a) b))))
  (iter n null))

它按预期工作：

(fun '(1 2 3 4) 6)
=> 72/103