方案：错误：#<undef> 不是函数

Question

我是 Scheme 的新手，但我想写的东西似乎很简单。尽管，我缺少一些东西......我有以下定义：

(define (fast-expt x n)
  (if (even? n)
      (expt (expt x (/ n 2)) 2)
      (expt x n)))

它使用了我以前的功能：

(define (expt x n)
  (cond ((= n 0) 1)
        ((= n 1) x)
        ((= n -1) (/ 1 x))
        ((< n 0) (* (/ 1 x) (expt x (+ n 1))))
        (else (* x (expt x (- n 1)))))

函数expt 似乎工作正常，但是当我尝试测试fast-expt 时，它会抛出以下内容：Error: #<undef> is not a function [fast-expt]。如果有关系，我使用在线编译器https://repl.it

Answer 1

它是works for me，但请注意expt 缺少右括号。也许您需要在在线解释器中在fast-expt 之前定义expt。或者更好的是，切换到一个好的离线解释器，比如 Racket :)。

另外，fast-expt 的实现必须调用自己，否则它只会对第一个偶数指数起作用，从那时起，它只会使用“慢”expt。应该这样实现：

(define (square x) (* x x))

(define (fast-expt x n)
   (cond ((zero? n) 1)
         ((even? n) (square (fast-expt x (/ n 2))))
         (else (* x (fast-expt x (- n 1))))))