Common Lisp let 绑定

Question

我有一个函数计算二项展开式，并带有可选参数来指定开始和结束项：

(defun comb-index (s k)
  (let ((combinations nil))
    (labels ((rec (s k offset entry)
               (cond ((equal s k)
                      (push (reverse (loop
                                     for i from 1 to s
                                     do (push (1- (+ i offset)) entry)
                                     finally (return entry)))
                            combinations))
                     ((equal k 0)
                      (push (reverse entry) combinations))
                    (t (rec (1- s) (1- k) (1+ offset) (cons offset entry))
                       (rec (1- s) k (1+ offset) entry)))))
      (rec s k 0 nil))
   (nreverse combinations)))

(defun binomial (k &key (start 1) end)
    (let ((b start)
          (e (if (null end) k end)))
      (labels ((rec (i)
                 (cond ((equal i e)
                        (comb-index k e))
                       (t
                        (append (comb-index k i) (rec (1+ i)))))))
        (rec b))
     )
    )

当我编译并运行此代码时，它将产生以下运行时错误：

Unhandled memory fault at #x18.
   [Condition of type SB-SYS:MEMORY-FAULT-ERROR]

这是由 e 引起的，但我不确定为什么。我可以通过为 'e' 分配 'k' 或 'end' 来避免这个问题，或者简单地使用 (when ... ) 将 'end' 设置为 'k'（如果它为零），但我不确定为什么这是行不通的。

Answer 1

看起来像内存溢出......

有没有想过你的代码的内存效率？

Answer 2

代码中的问题并不明显；这似乎是真正的溢出。有什么方法可以调整底层 Lisp 系统可用的内存吗？命令行标志什么的？

您是否可以选择使用像 Clojure 这样可以创建惰性序列的语言来实现此功能？您可能知道，这种类型的计算有可能产生非常大的结果。我似乎记得 Clojure/contrib 库之一中的某些内容就是执行此计算的。