简单方案程序中的错误

Question

我正在使用Simply Scheme书中的程序：

(require (planet dyoo/simply-scheme))
(define (combinations size set)
  (cond ((= size 0) '(()))
    ((empty? set) '())
    (else (append (prepend-every (first set)
                                 (combinations (- size 1)
                                               (butfirst set)))
                  (combinations size (butfirst set))))))

但是，当我运行它时，我收到了这个错误：

 expand: unbound identifier in module in: prepend-every

关于如何修复的任何想法？

我正在使用DrRacket

Answer 1

假设您正在阅读第1章，本章前面已定义了该函数。请参阅prepend-every。 Chapter 1假设你在一次性完成整个章节，因此那里的一些演示程序将取决于作者之前刚谈过几段的函数。

Answer 2

我相信你的问题是＆＃34; prepend-every＆＃34;没有在任何地方定义。