这段代码用在Autolisp怎么改

st788796

net 是点的时候能用吗？

1. (defparameter *net* '((a b c) (b a c) (c a b d) (d c)))
   
2. 
   
3. (defun new-paths (path node net)
   
4.   (let (acc)
   
5.     (dolist (x (cdr (assoc node net)))
   
6.       (or (member x path)
   
7.           (push (cons x path) acc)))
   
8.     acc))
   
9. 
   
10. (defun bfs-l (end queue net sol)
    
11.   (if  queue
    
12.       (let ((path (car queue)))
    
13.         (let ((node (car path)))
    
14.           (bfs-l  end
    
15.                   (append (cdr queue)(new-paths path node net))
    
16.                   net
    
17.                   (if (eql node end)  path sol))))
    
18.     (reverse sol)))
    
19. 
    
20. (defun longest-path (start end net)
    
21.   (bfs-l end (list (list start)) net nil))
    

(defparameter *net* '((a b c) (b a c) (c a b d) (d c)))<br /> <br /> (defun new-paths (path node net)<br />   (let (acc)<br />     (dolist (x (cdr (assoc node net)))<br />       (or (member x path)<br />           (push (cons x path) acc)))<br />     acc))<br /> <br /> (defun bfs-l (end queue net sol)<br />   (if  queue<br />       (let ((path (car queue)))<br />         (let ((node (car path)))<br />           (bfs-l  end<br />                   (append (cdr queue)(new-paths path node net))<br />                   net<br />                   (if (eql node end)  path sol))))<br />     (reverse sol)))<br /> <br /> (defun longest-path (start end net)<br />   (bfs-l end (list (list start)) net nil))<br />

result of execution:

>(longest-path 'a 'd *net*)(a b c d)

Lisphk

难道这段代码不是AUTOLISP?

st788796

Lisphk 发表于 2013-10-24 09:59
难道这段代码不是AUTOLISP?

Common Lisp

xtdwynij

st788796 发表于 2013-10-24 10:42
Common Lisp

请教一下楼主。common lisp和。alisp有什么区别啊？common lisp是什么？

st788796

xtdwynij 发表于 2013-10-24 19:29
请教一下楼主。common lisp和。alisp有什么区别啊？common lisp是什么？