lisp 代码示例

非原创，抄来的：

http://www.newsmth.net/nForum/#!article/FuncProgram/2185



刚学lisp不久：）有些地方还不是很清楚，所以用了比较笨的办法，还请大家多多指教
//bow
  
;; s 开始状态
;; 结束状态集
;; rules 规则集
;; delta 转移函数
  
;; search.lisp
;; 22 March 2004
  
(defpackage search-base
   (:export BFS DFS)
   (:use common-lisp))
(in-package search-base)
  
(defvar finish-status '()
   "The finished status set")
(defvar rules-set '())
(defvar expand-func #'(lambda () ()))
(defvar update-open-lst #'(lambda () ()))
  
(defun search-init (K rules delta lstop)
   "initialize the global values used by search base"
   (setq finish-status K)
   (setq rules-set rules)