记录一些Clisp的有意思的东东, 只是一个从解释器的拷贝粘贴,

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 编程语言 > 综合其它

记录一些Clisp的有意思的东东, 只是一个从解释器的拷贝粘贴,

作者:未知时间:2005-09-13 23:36 出处:Blog.ChinaUnix.net 责编:chinaitpower

摘要：记录一些Clisp的有意思的东东, 只是一个从解释器的拷贝粘贴,

只是从解释器中拷贝一些有意思的东西而已, 懂的人会看明白的.

[99]> (cons 'quote (cons 10 nil))

'10

[101]> (setq a 20)

20 [102]> (list 'quote a)

'20

[124]> (let ((x a) (y (+ x b)))
(cons x y))
(10 . 50)
[125]> (let* ((x a) (y (+ x b)))
(cons x y))
(10 . 30)

[52]> (setq foo '(1 2 3 4 5))
(1 2 3 4 5)
[53]> (setq bar '(a b c d e))
(A B C D E)
[54]> (do ((x foo (cdr x))
(y bar (cdr y))
(z '() (cons (cons (car x) (car y)) z)))
((or (null x) (null y))
(nreverse z)))
((1 . A) (2 . B) (3 . C) (4 . D) (5 . E))

[76]> (let ((x '(apples peaches pumpkin pie)))
(dolist (z x)
    (when (eq z 'peaches)
      (setf (cddr x) '(mango kumquat)))
    (format t " ~S " z)))
APPLES PEACHES MANGO KUMQUAT
NIL

关闭本页