`
deepfuture
  • 浏览: 4332606 次
  • 性别: Icon_minigender_1
  • 来自: 湛江
博客专栏
073ec2a9-85b7-3ebf-a3bb-c6361e6c6f64
SQLite源码剖析
浏览量:79404
1591c4b8-62f1-3d3e-9551-25c77465da96
WIN32汇编语言学习应用...
浏览量:68361
F5390db6-59dd-338f-ba18-4e93943ff06a
神奇的perl
浏览量:101484
Dac44363-8a80-3836-99aa-f7b7780fa6e2
lucene等搜索引擎解析...
浏览量:281140
Ec49a563-4109-3c69-9c83-8f6d068ba113
深入lucene3.5源码...
浏览量:14597
9b99bfc2-19c2-3346-9100-7f8879c731ce
VB.NET并行与分布式编...
浏览量:65552
B1db2af3-06b3-35bb-ac08-59ff2d1324b4
silverlight 5...
浏览量:31311
4a56b548-ab3d-35af-a984-e0781d142c23
算法下午茶系列
浏览量:45199
社区版块
存档分类
最新评论

lisp-列表

 
阅读更多

This is experimental prerelease support for the Windows platform: use
at your own risk.  "Your Kitten of Death awaits!"

0] (list 5 6 10)

(5 6 10)
0]


* (let ((x 15) (y 10) (xt 30) (yt 90)) (cons (+ x xt) (+ y  yt)))

(45 . 100)
* (cons 12 (+ 35 66))

(12 . 101)
* (cons 12 `(35 66))

(12 35 66)
* (defvar *mylist* (cons 12 (+ 12 22)))

*MYLIST*
* *mylist*

(12 . 34)
* (car *mylist*)

12
* (cdr *mylist*)

34

34
* (car '(11 454 155))

11
* (cdr '(23 234 1155))

(234 1155)

cadr就是先cdr,再car
cdar就是先car,再cdr
* (cadr `((55 234 77) (32 555 66)))

32
* (cdar `((55 234 77) (32 555 66)))

(234 77)
*

以此类推

0] (cadr `((55 234 77) 32 555 66))

32
0] (cddr `((55 234 77) 32 555 66))

(555 66)
0] (caddr `((55 234 77) 32 555 66))

555

0[2] (cdddr `((55 234 77) 32 555 66))

(66)
0[2]

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics