(defun billion-test () (setq i 0) (loop while (< i 100) do (setq i (+ i 1)))) (billion-test) (print "done") 我有以上的Lisp代码,它只是简单地循环一...
和这里的一些提问者一样,我对Lisp还很陌生。我正在阅读Practical Common Lisp这本书,但是我想了解一下创建Web应用有多容易,所以我跟随着这个教程以及这里更新的版本。 当我到达启动服务器的地方时,我的REPL会关闭,然后我无法将任何内容推送到*dispatch-table...
如何在程序开始时正确加载quicklisp?我目前是复制/粘贴quicklisp插入到我的.eclrc文件中的代码块,例如: ;;; quicklisp (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" ...
使用这个函数:(defun sum-greater (x y z) (> (+ x y) z)) 据我所知,在LISP中,列表中的第一个元素总是代表在其后面的原子/列表上执行的函数。那么为什么LISP不将(x y z)中的x视为要在y和z上执行的函数呢?显然,这不是期望的行为,但它会是...
在以下的when宏中: (defmacro when (condition &rest body) `(if ,condition (progn ,@body))) Why is there an "at" @ sign?
我希望尝试学习Lisp,但很快就放弃了。我想再试一次。我正在查看Project Euler上的问题2 - 找到400万以下所有偶数斐波那契数的总和。 我编写了下面的代码,它可以工作,但很丑陋。其中最主要的问题是它太慢了 - 因为它一直在进行天真的递归。 当我用Python编写此程序时,我在...
我有一个数据库,它返回被双引号包括的有效CL表达式。 是否可以将这些字符串转换为表达式? 例如,我通过CLSQL从该数据库进行查询,结果返回: "(foo a b)" 如何将此表达式转换为: (foo a b) 并进一步评估它?
在Common Lisp中,eq、eql、equal 和 equalp 有什么区别?我知道它们中的一些检查类型,另一些检查跨类型,但是哪个是哪个呢?何时使用其中一个比另一个更好?
为了测试一个涉及大量浮点算术的系统,我定义了一个浮点算术误差的偏差范围,因此,如果两个浮点数之间的差在偏差范围内,它们被认为是数学上相等的: ;;; Floating Error Agnostic = ;;; F2 is = to F1 within the deviation range ...