12 2012 档案

common-lisp版汉诺塔
摘要：1.定义三根柱子,pillar-1 pillar-2 pillar-3, 每根柱子有自己的属性：name（柱子名称),value（柱子上的盘子）,为了打印盘子的移动过程，我们给每根柱子定义了名称。(defparameter pillar-1 nil)(setf (getf pillar-1 'value) '(1 2 3 4)) (setf (getf pillar-1 'name) "pillar-1") (defparameter pillar-2 nil)(setf (getf pillar-2 'value) '()) (se 阅读全文
posted @ 2012-12-21 13:50 误会僧 阅读(287) 评论(0) 推荐(0) 编辑
lisp单个文件的编译
摘要：1.load加载lisp文件：等价于以文件中表达式出现的顺序在repl中加载每一个表达式并求值。(load "要加载的lisp文件")2.另一种加载lisp文件的方法: (load (compile-file "要加载的lisp文件")) 步骤：i.编译 ii.write fasl(fast-load-file) 要加载的lisp文件.fasl iii.fasl write compile 阅读全文
posted @ 2012-12-09 10:13 误会僧 阅读(179) 评论(0) 推荐(0) 编辑