lisp 代码示例

最新推荐文章于 2024-09-15 11:40:06 发布

cudi7618

最新推荐文章于 2024-09-15 11:40:06 发布

阅读量1.7k

点赞数 2

文章标签：数据结构与算法

本文分享了来自 ITPUB 博客的 Lisp 代码示例，深入探讨了这种古老而强大的编程语言在数据结构与算法应用中的独特之处。通过阅读，读者可以了解到 Lisp 在解决问题时的优雅和效率。

摘要由CSDN通过智能技术生成

非原创，抄来的：

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)