在 Scheme 中编写递归枚举函数

Question

我正在编写一个递归枚举函数，但我在某处遇到了一个简单的错误。

这是应该发生的：

(enum 1 0.5 2.5)  
> (1.0 1.5 2.0 2.5)

代码如下：

(define enum
   (lambda (start step stop)
      (if (not (<= stop start))
          (cons start (enum (+ start step) step  stop))
          ('(stop))
          )))

编辑：
我得到的错误（来自 Impromptu (http://impromptu.moso.com.au/)）是：

> (print (enum 0 0.5 2.5))  
:ERROR: position:(0) in function "enum"  
illegal function  
Trace: enum  

Answer 1

我相信你的问题出在这条线上

('(stop))

我认为您的想法是正确的，即您想在到达终点后停止执行递归，但这不是这样做的方法。因为您已将它放在双括号中，所以它被解释为“评估'停止'，然后尝试将其作为函数调用”。但是，stop 不是函数，因此会出现错误。

要解决此问题，如果您想将返回值设为仅包含 stop 的列表，请使用 list 函数：

(define enum
   (lambda (start step stop)
      (if (not (<= stop start))
          (cons start (enum (+ start step) step  stop))
          (list stop)
          )))

请注意，list stop 周围只有一组括号。

希望这会有所帮助！