CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 11541|回复: 13

[开发] Lisp语言入门

[复制链接]
发表于 2006-4-16 18:14 | 显示全部楼层 |阅读模式
Lisp入门(一) : }* p: h* x2 {+ [( a$ R. Z* x
" [, N$ L+ c+ |- z( d; U& H( h
Lisp是一门历史悠久的语言,全名叫LISt Processor,也就是“表处理语言”,它是由John McCarthy于1958年就开始设计的一门语言。和Lisp同时期甚至更晚出现的许多语言如Algo等如今大多已经消亡,又或者仅仅在一些特定的场合有一些微不足道的用途,到现在还广为人知的恐怕只剩下了Fortran和COBOL。但唯独Lisp,不但没有随着时间而衰退,反倒是一次又一次的焕发出了青春,从Lisp分支出来的Scheme、ML等语言在很多场合的火爆程度甚至超过了许多老牌明星。那么这颗常青树永葆青春的奥秘究竟在哪里呢?
- [* n% I3 T6 V, a4 }! _
' H% k. C, B; S5 s  l如果你只接触过C/C++、Pascal这些“过程式语言”的话,Lisp可能会让你觉得十分不同寻常,首先吸引你眼球(或者说让你觉得混乱的)一定是Lisp程序中异常多的括号,当然从现在的角度来讲,这种设计的确对程序员不大友好,不过考虑到五六十年代的计算机处理能力,简化语言本身的设计在那时算得上是当务之急了。$ @! D& d: j5 ^1 P6 M; t' U# [
+ f! w9 L! I- K/ o* e$ C3 |
Lisp的基本语法很简单,它甚至没有保留字(有些语言学家可能对这一点有异议,别怕,我听你们的),它只有两种基本的数据,仅有一种基本的语法结构就是表达式,而这些表达式同时也就是程序结构,但是正如规则最简单的围棋却有着最为复杂的变化一样,Lisp使用最基本的语言结构定义却可以完成其它语言难于实现的、最复杂的功能。
# l9 j. z0 R; t/ V
9 M1 ~& L8 {+ y& Q* \( j废话少说,现在我们就来看看Lisp语言中的基本元素。$ a4 `$ e4 b- @; v; H

9 f, h. ?! x1 _  _Lisp的表达式是一个原子(atom)或表(list),原子(atom)是一个字母序列,如abc;表是由零个或多个表达式组成的序列,表达式之间用空格分隔开,放入一对括号中,如:7 `% T9 L% r& b1 ~
, A$ C% P; j0 j: y3 Y7 Y; \
abc
# d" Z. T* q% f% P6 T()( I6 c1 _9 o& g6 \
(abc xyz): h- i9 m8 ]4 T7 e' @# r
(a b (c) d)' k% C" p+ z; [4 ]) s

9 i/ C* t  m- Y9 _: D1 {9 ]最后一个表是由四个元素构成的,其中第三个元素本身也是一个表。
1 x' _2 z- n- f0 v7 A# U2 Q7 S# b- k
正如算数表达式1+1有值2一样,Lisp中的表达式也有值,如果表达式e得出值v,我们说e返回v。如果一个表达式是一个表,那么我们把表中的第一个元素叫做操作符,其余的元素叫做自变量。
( v9 a! n' @0 B1 ?8 _
8 o, D, w$ ?' Z( i' G( Y: ?% P6 a正如欧几里德的几何世界中有五个公理一样,我们在这里给出Lisp世界中的7个公理(基本操作符):% G- k0 z' ?0 I1 x/ \5 t" d0 \4 C

* U) ]9 M& U" @(quote x)返回x,我们简记为'x
- P; d* v  k* X7 y- v6 }1 T(atom x)当x是一个原子或者空表时返回原子t,否则返回空表()。在Lisp中我们习惯用原子t表示真,而用空表()表示假。
8 B7 H2 c  s$ E: S, ?> (atom 'a)
6 x5 i' z* u0 M# H, E% gt1 q6 `- y8 e- h5 @) ~2 E
> (atom '(a b c))3 d3 C+ w4 f& n  q& ~# L
()2 P6 k; I9 c* x
> (atom '())9 ?' _( S/ ^# h8 f& r
t2 T+ D' B8 m5 a% m: |) W
现在我们有了第一个需要求出自变量值的操作符,让我们来看看quote操作符的作用——通过引用(quote)一个表,我们避免它被求值。一个未被引用的表达式作为自变量,atom将其
; f& |, O+ L' Z. F视为代码,例如:! t+ X9 w7 }( U2 w7 ?/ @
> (atom (atom 'a))' c/ k" ]3 I& t* n' }
t
6 I! b  @5 W8 _& y/ E$ T: p' _反之一个被引用的表仅仅被视为表
+ x- O4 u) n" R, o: ?: L> (atom '(atom 'a))
+ t) k3 J; S1 P1 I3 m8 Z0 _6 y6 L()
( X/ O8 t3 R$ ]3 l引用看上去有些奇怪,因为你很难在其它语言中找到类似的概念,但正是这一特征构成了Lisp最为与众不同的特点——代码和数据使用相同的结构来表示,而我们用quote来区分它们。
% e) U9 {( a+ H(eq x y)当x和y的值相同或者同为空表时返回t,否则返回空表()
3 P& S! J, m0 t* ], K7 R6 N> (eq 'a 'a)2 }  }. o/ s5 v) p
t* N1 x/ d; ~3 S' Y- r
> (eq 'a 'b)4 H/ p1 V: Y. l; s* f
()9 h+ X3 z2 t3 ~+ A1 B# q, n
> (eq '() '())
. R8 e+ @2 M& S9 o) bt
8 t( ^$ z3 L; j下一章,我们将讲解与表相关的操作符和条件操作符,以及Lisp程序的基本元素——函数。
 楼主| 发表于 2006-4-16 18:15 | 显示全部楼层

Lisp入门(二)

上一集我们讲了Lisp世界七个公理的前三个,这一集我们接着讲剩下的四个。! f- o7 W7 }! Y' e- A+ ]

! b* Q: G& ~* n首先是三个表操作3 i- y" W- z: P9 ?/ g) t" Z

5 H# @  \  b0 i(car x)要求x是一个表,它返回x中的第一个元素,例如:$ R9 z/ W1 A7 x" n& M
> (car '(a b))9 s0 n. a+ P  \+ D0 \
a
) [4 h4 m: N1 d- c(cdr x)同样要求x是一个表,它返回x中除第一个元素之外的所有元素组成的表,例如:
7 b2 l; ~* v; a. Y( @> (cdr '(a b c))
$ Z+ m4 O6 G% Z6 E0 v: L- Q; }(b c) ; z; m8 w0 {  J* x- }+ N
(cons x y)要求y是一个表,它返回一个表,这个表的第一个元素是x,其后是y中的所有元素,例如:+ a! B0 L; v: ?) E$ g# e
> (cons 'a '(b c))
2 e5 {0 H: e; Q0 E9 B6 q# z(a b c)* x- c0 k) ~0 {' a2 }- a
> (cons 'a (cons 'b (cons 'c ())))! C' A" H* X, N; E; l
(a b c)) E$ d: u9 S- V! m- i
看到这里大家可能会问,为什么没有取表中除开头外其它某个位置上的元素的操作符,别急,等我们讲到地球人都知道的函数和递归你就知道该怎么办了,也许你现在已经想得差不多了?4 S9 l" \/ ~/ K4 p% H0 e. T, @7 M
! Z0 [( I* N, j
接下来要介绍给大家的是构成程序逻辑的一个基本功能……条件分支,在Lisp中,它是由cond操作符完成的,cond是七个公理中最后一个也是形式最复杂的一个(欧几里德的最后一个公理也如是):0 W, Y7 B4 b3 o- c) E* ^

8 l# I3 H, `& b- g) D1 O: ~) `1 B& a(cond (p1 e1) (p2 e2)...(pn en))5 j( V0 z4 _: v9 n2 A
- R( H8 t" I5 c% ?
p1到pn为条件,e1到en为结果,cond操作符依次对p1到pn求值,直到找到第一个值为原子t(还记得吗?)的p,此时把对应的e作为整个表达式的值返回,例如:
) E9 S' X3 C7 t& U  P$ J3 F1 ~" G: m9 g. q0 r% e8 K' S: ^
> (cond ((eq 'a 'b) 'first)" t- n5 F' ^; n: g! `; c
        ((atom 'a) 'second))% \2 U: v8 p6 ?& N$ e; x2 O4 f2 x8 S* s
second, V( Y! T/ b1 [
) E0 ]' y% E- F( D
好了,至此我们已经有了Lisp世界的所有基本公理,我们可以开始构建整个世界的规则了。
9 W' a, _3 p! l0 ?2 C* |$ G2 y% b& w: Z
8 C. \6 Q! \. x, G' l! a6 {4 o; d在这七个操作符中,除quote和cond之外,以其他的五个操作符开头的表达式总是要对它的所有自变量求值,然后产生结果,我们把这样的表达式叫做函数。
 楼主| 发表于 2006-4-16 18:15 | 显示全部楼层

Lisp入门(三)

上一集我们讲到了“函数”,其实这个概念早在初中数学里就已经学过了,一个函数无非就是将自变量映射到值的对应关系,在Lisp里也一样。  h  h3 ]  P* d8 e& R

' K5 q( A" m5 B* M$ ]; r" OLisp中的函数定义我们已经在上节给出(快速抢答:谁还记得请举手),在Lisp中采用如下形式描述一个函数:( J1 ^5 m7 `8 L0 }& V

: ~9 P2 S3 F2 k$ \(lambda (p1 p2 ... pn) e)
) G9 }1 z1 l8 e
! V. w: g+ {  {5 p其中,pi为原子,在函数中称之为参数,e是表达式,也就是函数体。6 z' G7 \/ s* l; R! g' g, r$ `; G
: c7 H/ v$ d% q
调用一个函数的方式如下:* N( j6 i: H! }, m2 ~) z

$ D* [8 D  B0 ]" Y: x. ~" {  {((lambda (p1 p2 ... pn) e) a1 a2 ... an)
4 B) x: p, \1 k  b$ g; K
# A( O: B# ?4 F5 L4 E其中ai为表达式,按照我们的惯例,称之为实参。
5 D3 w1 D" P/ s( k6 j* q
8 ~3 E: _# ?8 Z/ y" \( X& K整个函数的调用过程如下:每一个表达式ai(实参)先求值,然后再将这些实参代入e中求值,最后的结果即为整个表达式的返回值。. E5 P' H' p8 d; Z" @

" V( S8 q* \; X9 k如果一个表达式的第一个元素是一个原子,但不是基本操作符(也就是我们先前提到的那7个),如:
6 ^3 C: O; J, R) k! e
3 j% z- u6 B7 V& _1 O4 M+ U! s7 T; G(f a1 a2 ... an)1 `* r1 ?6 r7 i' o! b

' Y; Z# c6 a5 g7 ~/ c$ P6 D7 q并且f的值是一个函数(lambda (p1 p2 ... pn) e),则上述表达式等价于
- `; E% a. L6 W# t/ ]9 `- O9 x- m* Y0 v! n) `
((lambda (p1 p2 ... pn) e) a1 a2 ... an)+ @9 {, i9 M: L' F6 Y$ K/ e

' m) O9 s" @8 {+ u/ H看了这一段,可能大家都有点晕,到窗口去做几个深呼吸,然后回来做下面这个练习,看看这个表达式的结果是什么?
1 O9 Z7 S% Y2 n- |
! M: y" s) U: r( G((lambda (f) (f '(b c))) '(lambda (x) (cons 'a x)))
3 V0 ?, |, @! `  @" \  X* Y2 L  j6 X6 y
如果你得出了结果,那么继续往下看,否则再把前面几段话多读几遍,把上面的练习输入到一个能自动匹配括号的文本编辑器里继续研究。
% W6 P& Y5 ]* R3 o+ j: H
  K$ b, K9 x1 O) w  e, E在这里我打算插几句题外话,可能有很多人已经见识过这个lambda了,不过不太可能是在Lisp里(要是这样的话你就应该不用来看这片“入门”了,不是吗?),而多半是在Python里,Python手册中对这个lambda仅仅是一笔带过,他大概是这么说的:“使用lambda这个词是因为它类似于Lisp语言里同名的一个语法结构。”好了,我们现在就来看看lambda这个典故的真正起源。6 [3 Z  N4 o/ h4 U
) `( k) K4 m" {3 i% x
lambda这个词来源于lambda演算理论。lambda是什么?对于现在的人来说,这个概念不过就是“函数”而已,但是对于lambda演算理论的出现的那个年代来说,它可是一种革命性的创新。lambda演算理论过于复杂,而且作为一篇Lisp的简介,讨论它已经完全偏离了主题,但是它所提出的另一个概念——高阶函数(High Order Function)——却在Lisp语言中占有重要的地位,甚至可以说是Lisp如此与众不同的主要原因。, ~- C( v. {) ]( \5 k- J* ^

3 Z; u1 W7 }- d) [' f正如“高阶导数”就是“导数的导数”一样,所谓高阶函数,其实就是“函数的函数”(高数老师,原谅我吧)。即把一个函数本身当作另一个函数的自变量(在现代的C++中提出的“functor”这个概念其实就是高阶函数在C++中的一种实现)。高阶函数的出现,将“函数”在编程语言中的地位提升到一个“一等公民”的地位,你可以像操作任何基本数据类型一样操作一个函数,对它进行变换、传递,随你怎么折腾。
: C6 \  {% T, ]# E! ]1 Y
9 o, l) V, v# S6 }0 M下面我们回到正题,继续讨论Lisp中的函数,我们可以看到,至今为止,我们的函数都还没有名字,函数可以没有名字,也就是匿名函数正是Lisp的另一大特色,Lisp可以让程序员把数据和名字剥离开,这对于许多其它的编程语言来说是直到现在也无法享受到的一种奢侈。
% {6 ^! \  U4 z' t+ B2 ?, [+ [- s/ o% }9 k& ^4 h
函数没有名字会带来一个问题,那就是你无法在函数中调用自身(好啦,我知道还有Y组合,不过这是一篇入门文章),所以Lisp提供了一种形式可以让你用一个标识符来引用函数:9 z  n: C4 n  d/ y
! o/ V/ Z0 \4 Q9 }, G- i
(label f (lambda (p1 p2 ... pn) e))) q8 z# E1 Q3 ~! p2 k  `, p1 N2 ?! B
$ W+ A  t4 Q  V) b6 e  S& h3 o
这个表达式和前面的简单lambda表达式等价,但是在e中出现的所有f都会被替换为整个lambda表达式,也就是递归。- @7 v6 E9 L) p' N7 J) U3 b) b$ a  X

) T) n; V; c' Q* e同时,Lisp为它提供了一种简写形式:
5 x/ @) A( s) D& U4 _  Z( z2 M& J5 M( E0 [- {8 ?4 N2 T0 k, v) k
(defun f (p1 p2 ... pn) e)8 H9 w! S5 h9 ~7 |$ {8 V' w

9 t' M; d; U9 |, |- I8 J你可以开始写你的第一个有用的Lisp程序了,你打算写什么?(无论什么,只要不是Hello world就好)
7 p% `; r" y: X( F& K/ \, _8 |2 h  P! a
下一集,我们将给出一些常用的函数。
 楼主| 发表于 2006-4-16 18:16 | 显示全部楼层

Lisp入门(四)

Lisp的语法元素在前几集中已经基本讨论完毕,相比C#或Java数百页的Specification,它可能简单的让你有些惊讶,不过,伟大的东西总是简单的,不是吗?现在让我们来回顾一下上一集中提到的内容,首先提几个问题:* d: v, y+ R$ x) x/ K% x- r

, Z% m2 q5 ^5 k+ u" a" l: @既然cond在概念上相当于过程式语言中的if语句,那么与if相对的else分支在cond表达式中应该如何描述? 2 {8 _7 i2 M$ v% A7 S$ D, L8 Q
在(我们已经学过的)Lisp中如何表达“重复”这个语义?或者你能写一个foreach循环函数?
$ \; y& q- Q, g2 [9 ^& h! l(注:不要问输入输出函数或算术逻辑运算在哪儿之类的问题,它们都是微不足道的事……), z9 w9 T2 d4 y4 s
/ b+ I( i6 G3 L
这一集中,我们将描述几个常用的函数,并给出它们的简单实现; k1 u% t( S3 |* C' x0 q0 n

  e- I' m# D. E9 k首先解答在第一集中提出的问题:如何取一个表中的第二个、第三个或第n个元素?2 g$ m, q2 j9 g  [4 a& _

, ?. J& h" \+ A+ v可能有些读者已经想到了,取第二个元素可以采用如下形式:3 G- D0 x& t/ s1 m  D2 K( p

1 A- ^- P2 o9 l5 D/ j(car (cdr x))
0 G! O! x  n) U7 B
  b2 ^: x# J' q5 Z: N: y同理,取第三个元素是这样的:; v) S$ h2 m, |+ ?3 l) `2 F4 v; I
% @5 ~5 L7 Z0 P- h; A# ~
(car (cdr (cdr x)))" t' `; W$ n7 N6 K
. K* i$ ]+ s( q5 V8 j. l7 h5 n
事实上,这种组合在Lisp中经常要用到,为了方便,Lisp提供了一个通用模式——cxr,其中x为a或d的序列,来简记car和cdr的组合,例如:6 S) o/ a8 `9 q. H1 d- w2 N( e! v

) K: i8 b- E' ^0 ~> (cadr '((a b) (c d) e))
4 z" _8 A; \: Q: k" ^" r3 i(c d)
  M4 n  d& f/ i1 L> (caddr '((a b) (c d) e))
% O# x  v8 d7 Xe5 y# f* e$ `2 F
> (cdar '((a b) (c d) e)); y6 _1 O/ F" o4 t7 c, |  v6 t7 _
(b)
4 U, z# `/ n/ c  I4 A' V9 A# S6 r, Q4 l+ R3 q
另外,使用(list e1 e2 ... en)来表示
* j7 N' y' v' _- a' H(cons e1 (cons e2 (... (cons en '())...)))
& I  E! f; F  M' m6 O# E' T( x2 r" p0 |5 ~( C) o: Z
> (cons 'a (cons 'b (cons 'c '())))
4 R) k  a; l4 E8 F' Z(a b c)# [1 V6 T5 P  {" @
> (list 'a 'b 'c)3 Z9 C5 ^; l, B$ Q5 F7 d
(a b c)9 y7 C3 k2 R/ g: k% c" M  `9 x

  d+ a( a: X( P. M现在我们定义一些新的常用函数,我建议你先自己想一想,不要急着看我给出的实现。2 P% k/ \9 q0 P
8 B) Q4 i( G" Y7 L: T# q+ v  K
(注:某些函数在Common Lisp中已经存在,所以如果你想试验一下,给它们换个名字)8 b3 V! S% H% L% P
0 t; p4 R5 \% }( O$ Y
(null x),测试x是否为空表。例如:
% t4 B& x; Q/ Q! n" Z> (null 'a)' X( v. [- R% Q$ Q+ M; F  r
()5 n, K) w( H/ x! Z1 ~6 a2 y5 I
> (null '())
2 P; u4 f* V, Y4 n5 b2 {) Z/ K5 L  xt 2 O3 _& q4 f* W$ N
(and x y),逻辑与,当且仅当x和y都不是空表时返回't,否则返回空表。( E# c- _/ a+ t6 b
> (and 'a 'b)" g/ K" I3 q4 R& L( c7 [
t
( c& y1 M5 d! ~* x2 ]! Q- y6 u' |; m> (and (atom 'a) (eq 'b 'c))) N+ `, l4 h) u- Y- E$ G
() ! A5 u1 o5 e' A1 L& W
(not x),逻辑非,当x是空表时返回't,否则返回空表。(有人问我or在哪儿?)例如:& M! R, k. V+ H( ^! c: t/ R
> (not 'a)
8 A" ^8 ^, A* u# g7 [. H()
; Z% S; v8 j# a! h; {. `> (not (eq 'a 'b)): p& p4 w9 O2 s9 R
t 4 j( N2 h5 l8 q7 ?
(append x y),连接两个表x和y,注意它与cons和list之间的不同之处。例如:/ U% _6 {) i2 G& T: F% i
> (append '(a b) '(c d))
+ |7 N* _/ s/ ~1 m(a b c d)) C/ l& T2 @  N( ]8 c1 @
> (append '() '(x y))" p- @# ]  d0 x( I' K; d2 _
(x y) * ]9 R' ?0 M" Z+ v
(pair x y),这里x和y是两个长度相同的表,pair生成一个表,其中每个元素是x和y中相应位置上的元素组成的一个元素对,这个函数的返回值类似于其它语言中的map或dictionary的概念。例如:5 G" b/ ^& |& p. t) m
> (pair '(a b c) '(x y z))
& @0 S8 g9 J! s((a x) (b y) (c z)) - d/ \- _1 O% L/ ]
(assoc x y),其中x是一个原子,y是一个形如pair所返回的表,assoc在y中查找第一个左元素为x的元素对并返回。例如:: c5 Y' `. c9 H
> (assoc 'a '((a x) (b y))). |% R/ I9 A5 Y, N2 }. f
x+ z( M# F1 h- \2 a& a7 I
> (assoc 'a '((a (foo bar)) (b y) (c z)))
; d- w. M: }0 W/ I(foo bar)
3 u6 U. I4 B7 _  |5 d9 V( B7 I3 Z(subst x y z),在表z中将任意层次上出现的原子y都替换为表达式x。例如:' I$ Q; y/ u, y4 ]
> (subst '(x y) 'b '(a b (a b c) d))
3 x, s* X) S: C(a (x y) (a (x y) c) d)
' l7 y5 }0 n+ l) M# @( \2 E6 L下面我们给出这些常用函数的简单实现:7 `3 s* Y# z, I8 L; E8 ?2 z5 c
4 q6 m, y1 _: ?9 k1 y8 H, f
(defun null (x)
+ A. s7 G6 ?/ ]  (eq x '()))
6 u* B: ?2 k2 g! H" E- P0 H4 u/ ~(defun and (x y)
. o% D  `9 E8 f# R! w" @5 R  {  (cond (x (cond (y 't) ('t '())))
. i9 ]9 T$ _+ z        ('t '())))
7 c( V5 C8 F- M, D" v/ e, J(defun not (x)
* ^" W# a; N, }% ~3 \6 Z1 B1 Q' {3 T  (cond (x '())/ Y* M! o$ }* J( K' D7 R
        ('t 't)))
: I! a! E1 n% F1 e: h0 V. H0 P(defun append (x y)+ |- _1 e; ~+ s1 K) `
  (cond ((null x) y)
- l, A  D% \" v        ('t (cons (car x) (append (cdr x) y))))) 6 [0 ?3 Q6 P2 e4 K+ A- ^
(defun pair (x y)
+ n* I5 R( w1 V/ ?6 o  (cond ((and (null x) (null y)) '())
" p3 m$ ~$ k* N: T, I5 T* P& J7 N        ((and (not (atom x)) (not (atom y)))
- D9 o0 [) z- O7 K4 `; m" m         (cons (list (car x) (car y))
# V# ~8 i: }$ a6 a3 _" v4 \, |2 t# F               (pair (cdr) (cdr y)))))) " [# ^7 l2 J/ s
(defun assoc (x y)( ^* ]: n8 |  I6 t2 O8 }# o
  (cond ((eq (caar y) x) (cadar y))
) b0 s" _( {7 k        ('t (assoc x (cdr y)))))
/ U' s2 [9 F7 O0 T) m(defun subst (x y z)
" H( ]) J$ }6 _! B+ ?  (cond ((atom z)( L; ]4 H9 m! a( s$ l2 B
         (cond ((eq z y) x)
' M0 X! r: G2 F( _% G6 }7 U  F               ('t z)))4 l- a2 u* n* d7 J4 A% h# E
        ('t (cons (subst x y (car z))( a$ ]4 B8 l. C3 |+ r
                  (subst x y (cdr z))))))
; I4 e4 Z; @/ j如果看到这里你还没有晕菜,说明你的神经的确很坚强。注意在这些例子中是如何表达“重复”这个概念的,在Lisp中,最常用的重复其实并不是真正意义上的重复,而是递归,这也是绝大多数函数式语言的一个共同特征——函数的嵌套和递归,构成了整个程序逻辑。
0 L, O+ C# z& I( k6 ~, {
  f6 P/ S% B' f! {/ z# h这一部分内容可以让你真正感受到Lisp的特色,与编写过程式语言的程序相比,编写Lisp程序需要一种完全不同的思维方式,也许这正是Lisp语言几十年来长盛不衰的真正原因吧。$ Z7 A  [+ l+ C" o, l
7 y' @$ P! }/ G/ }0 _% Q# `. U
理解了这一部分,下一集中我们将领教一下Lisp的威力,我们将用Lisp编写一个Lisp解释器。如果你以前没有见过这个程序,我保证它一定会让你吃惊。
 楼主| 发表于 2006-4-16 18:17 | 显示全部楼层

Lisp入门(五)

上一集我们已经见到了一个Lisp程序的大致外貌,在文末,我提到这一集中我们将会用Lisp写一个Lisp解释器,事实上这个解释器并不太长,虽然它有可能是你至今为止见过的最长的一个。
2 m% o7 z! ^  e
8 G7 T! c8 G. J我已经有点等不及了,让我们先来看一下整个程序,然后再来讲解:
. c" s. H2 F- m1 P* I' k9 g, i% N
(defun eval (e a)
, o' A/ {+ m( L3 [+ H  ]  (cond
  P1 x. ]( G7 I. A' w6 |    ((atom e) (assoc e a))7 w1 w" X% ?) H  P* f
    ((atom (car e))9 a, A4 l" n3 K! E9 O, |5 O
     (cond
( |3 b7 J  c7 ~" O+ x# }       ((eq (car e) 'quote) (cadr e))9 g1 q7 X' m4 H: l  o1 D. Q+ S
       ((eq (car e) 'atom)  (atom   (eval (cadr e) a)))
; Z) R/ y7 l! S# |       ((eq (car e) 'eq)    (eq     (eval (cadr e) a)( W, E+ a5 @; N6 B  C! |
                                    (eval (caddr e) a)))& x% n& ]* c& x# r* i9 v; R
       ((eq (car e) 'car)   (car    (eval (cadr e) a)))* H' d* g/ V4 q7 N
       ((eq (car e) 'cdr)   (cdr    (eval (cadr e) a)))
/ r8 Z/ g. {" \& b- s       ((eq (car e) 'cons)  (cons   (eval (cadr e) a)/ T6 W! U" x( P" L* L
                                    (eval (caddr e) a)))
, D3 x6 S, ^. w: I8 W2 e7 z       ((eq (car e) 'cond)  (evcon (cdr e) a))
, C7 r- q6 w: m3 d0 e: n       ('t (eval (cons (assoc (car e) a)
- N1 Y5 p: E  G) O, o! x                        (cdr e))
4 b, f1 ~/ f0 a, u, b                  a))))
. \1 e* [  ~; F0 a    ((eq (caar e) 'label)
0 D  r5 e2 I6 ?/ W/ S     (eval (cons (caddar e) (cdr e))
% E" ]4 e& `  x8 w7 g' A9 L; ?            (cons (list (cadar e) (car e)) a)))
) z* c8 T( j" g. v5 ^; q- ^    ((eq (caar e) 'lambda)
4 R+ c( c7 e. g5 L     (eval (caddar e): w& f4 M9 d7 b+ a' {
            (append (pair (cadar e) (evlis (cdr  e) a))
) d/ t; q: u2 I) m, F                     a)))))
7 N5 {& H" _4 F' Z8 o# t, r7 ]7 |9 W7 L9 k9 ^' e
(defun evcon (c a)2 C5 R+ V8 d3 w3 m
  (cond ((eval (caar c) a)3 ?  s( w0 z' V: h. ]
         (eval (cadar c) a))! X/ s0 }+ J( Y  f' W7 a6 L6 u# N
        ('t (evcon (cdr c) a))))( T4 R  V( B: x1 a4 C3 P, v
/ `8 G$ K4 }9 T, n0 n
(defun evlis (m a), M# |& P2 `8 N* _5 W8 D4 X+ Y
  (cond ((null m) '())
/ q* B/ e1 V% u        ('t (cons (eval  (car m) a): R0 J3 u0 n$ d! @
                  (evlis (cdr m) a)))))
. Z. D- n% j7 `7 L' q
% {& j+ y; d0 ?  K(注:可能有的读者已经发现,Lisp并不要求你一定要在使用函数前先定义它)3 [5 u8 [; n  I! a- Y$ m* w

- j) R4 e+ e, I2 m1 o8 {% Z整个程序包含三个函数,主函数我们遵从Lisp(和Python、Perl)的惯例,叫它eval,它是整个程序的骨架。eval的定义比我们以前看到的任何一个函数都要长,让我们考虑它的每一部分是如何工作的。, q# p5 c& ~# D' d) F
4 C6 e! p6 ~' t3 V3 d5 M
eval有两个自变量:e是要求值的表达式,a是由一些赋给原子的值构成的表,这些值有点象函数调用中的参数。这个形如pair返回值的表叫做上下文,正是为了构造和搜索这种表我们才在前一章写了pair和assoc。! Z/ p1 N6 E& G' W% x
, ?- _- j4 t/ N. n- R
eval的骨架是一个有四个子句的cond表达式,如何对表达式求值取决于它的类型,第一个分支处理原子,如果e是原子, 我们在上下文中寻找它的值:
1 Q; H8 Q+ Q4 ?. H7 r' i) h2 A0 s7 R1 f( Q$ R/ Z6 U7 r
> (eval 'x '((x a) (y b))) a
+ A2 w+ A3 w: x$ T0 O$ V1 F第二个分支是另一个cond,它处理形如(a)的表达式,其中a是原子。这包括所有的基本操作符,每个对应一条分支。
$ Q' \- Y, j. S: ?+ P3 P, j( u9 ?0 R  ~+ w
> (eval '(eq 'a 'a) '()) t > (eval '(cons x '(b c)) '((x a) (y b))) (a b c)
) S5 M7 @  j! U8 P2 a& P这几个分支(除了quote)都调用eval来寻找自变量的值。; ]0 o9 z6 p* }% K* r

# t" J" Y: E8 w2 g/ h9 j% [最后两个分支更复杂些。为了求cond表达式的值我们调用了一个叫evcon的辅助函数。它递归地对cond分支进行求值,寻找第一个元素返回t的子句,如果找到了这样的子句,它返回此分支的第二个元素。, j* r% u! j7 |% T3 W
4 J% q7 H' Z1 i1 d, @9 H/ d
> (eval '(cond ((atom x) 'atom) ('t 'list)) '((x '(a b)))) list + W6 y' `- c% m, s9 [5 p
第二个分支的最后部分处理函数调用。它把原子替换为它的值(应该是lambda或label表达式)。然后对所得结果表达式求值。于是:/ [' f0 j! d6 M+ n

" }: q% F( }- ?  x(eval '(f '(b c)) '((f (lambda (x) (cons 'a x)))))
3 T" v2 S' A7 `5 e变为:
2 g$ s4 X. ?# I& s- ^
0 B! i7 q' o5 N7 h% A' H% q(eval '((lambda (x) (cons 'a x)) '(b c)) '((f (lambda (x) (cons 'a x)))))' _: J0 q+ M$ v7 J' X
它返回(a b c)
! o' s/ Q6 k( N  W6 m4 \8 q& Y9 p; R$ M9 y3 H
eval的最后两个cond分支处理第一个元素是lambda或label的函数调。用为了对label表达式求值,先把函数名和函数本身压入上下文,然后调用eval对一个内部有lambda的表达式求值,即:& R% @! f* h  {0 z! _

# T- @3 L" D' w$ V" L. n" {* t! Q(eval '((label firstatom (lambda (x) (cond ((atom x) x) ('t (firstatom (car x)))))) y) '((y ((a b) (c d)))))/ y, ~% r8 I, R9 n8 i7 O8 ?
变为
; V* R7 j: H+ e% F- G
+ V/ _: K( }0 D7 a3 Z, d(eval '((lambda (x) (cond ((atom x) x) ('t (firstatom (car x))))) y) '((firstatom (label firstatom (lambda (x) (cond ((atom x) x) ('t (firstatom (car x))))))) (y ((a b) (c d)))))
) N7 d& I3 L$ i! z) w6 [  T1 e% I最终返回a。
5 @- e. w8 S1 u5 ~! b2 V* }! x
* V% O6 g5 M! f- J$ [7 A0 P) f最后,对形如((lambda (p1 p2 ... pn) e) a1 a2 ... an)的表达式求值,先调用evlis来求得自变量(a1 a2 ... an)对应的值(v1 v2 ... vn),把(p1 v1) (p2 v2) ... (pn vn)添加到上下文里,然后对e求值。于是:
) }* ]9 v1 @" A: s; V/ S' p! N5 D& e
(eval '((lambda (x y) (cons x (cdr y))) 'a '(b c d)) '())+ t4 r5 b2 i1 ]' R) O8 \/ C
变为:
+ J* |' U" n+ |3 {7 p; O  t; u5 T" E4 b! g0 a( l3 W
(eval '(cons x (cdr y)) '((x a) (y (b c d))))+ L& r1 c+ R! @4 X1 F3 [
最终返回(a c d)。& y8 f$ U3 p# n) s) Q

$ c8 |- X' @6 b! Z! P! M讲了这么一大篇,如果你看懂了,说明你已经理解Lisp甚至FP的基本编程方式和思路,那么我们写了一个如此之长的程序究竟能干什么呢?6 J  _/ J. d5 U% ?# r- m
5 N" Y+ u& y$ w' R( a6 y1 @
我们在这里得到了一个非常优美的计算模型,eval函数实际上实现了整个语言,用它我们可以定义所需的任何其它函数。换句话说,我们现在有了一个自己的Lisp。
1 v# X: k* V# z- T1 m3 C# e% K8 M; M3 h
(注:由此可见,递归下降的语法分析是多么美好啊,因为它意味着你可以用几十、最多不过一两百行程序搞定一个复杂的分析器,对比LALR你将更有体会)
6 y/ R! F9 V9 I+ v1 V
& X2 D3 [4 G0 k0 Y# [4 s下面我们该去哪儿?这个问题,请读者自己去寻找答案。
 楼主| 发表于 2006-4-16 18:18 | 显示全部楼层

Lisp入门(后记)

这个系列终于写完,很是费了我不少力气,因为我从小语文就一直不太好,有时很难表达清楚自己的意思。这次算是自己撵着自己这只鸭子上架吧。3 w* O9 B; W- G

- E  z  D, t) z4 F# fLisp的历史十分悠久,据说仅次于Fortran,算得上是第二古老的语言。对于Fortran,语言学家给予的负面评价远比正面评价多,甚至在很多场合被作为程序设计语言的反面教材;但是Lisp则刚好相反,它一直被人们作为一个优秀作品的例子被大加赞扬,这些人中包括著名的计算机科学家,Smalltalk的发明人——Alan Kay。
1 h2 v( }+ w( E3 s! _/ s% S% J1 s) v7 p
有一个传言,据说McCarthy当时想把这门语言的语法设计往后拖一拖,等到他把一些有趣的事做完之后,再回过头来给这门基于Lambda演算理论的语言加上一些数学家们熟悉的语法,可是他的一个学生发现,在一个还没有定义正式语法的抽象语法中写程序,感觉非常好,于是McCarthy干脆就决定不定义Lisp的语法。直到如今,Lisp的“语法”定义中值得一提的规则似乎只有一条“括号要配对”,其它的都是“语义”上的规范。
2 c' J! _% U+ c1 {
, ~% K5 v( w8 F3 b) Y! Z这样做当然不是没有代价的,很快Lisp就出现了第一个分支Scheme。这个语言由Guy Steele, Jr.和他的老师Gerald Sussman设计。这两位最开始的工作是改进Lisp,他们共同把Lisp由Dynamic scope变成了Lexical scope。今天几乎大家熟悉的所有语言都是Lexical scope。后来他们共同把Continuation这个概念引入了Lisp,于是一门新语言就这样诞生。
1 f8 T2 h% v- g! X1 S6 ]4 @3 [6 I2 @( h, p. q! s, }+ `
随后,Sussman把Lexical scope和Scheme中的一些其它概念都引入了Lisp,并由此确立了Common Lisp的标准,Sussman本人也一直是Common Lisp的主力。
3 a2 J! m6 P% K; K3 S) h3 n7 Q- k: k/ u, u: w
作为一门最早出现的FP语言,Lisp当然有它的缺点,其中最为人诟病的恐怕就是括号了,所以随后出现的许多FP语言都试图使用另外的语法来清晰的描述程序,这其中最著名的当属Haskell(也许还有Caml?),Haskell是一门“纯正”的FP语言,在Haskell中,变量不能赋值,没有循环,甚至没有程序流程,一切都是函数。: t$ b( s5 Q* d- ?& |

; w( ~# i( q, l/ l. R(注:我个人认为,想要领会FP的精髓,用Haskell入门似乎更合适)
9 m) _) {5 Q# [7 ?8 t
3 X. |, y# Q: }( y6 N$ l9 h近年来,随着FP的进一步流行,许多命令式语言当中也逐步加入了FP的成分,典型如C++中的“functor”,如果你用过STL或者Boost,你会发现利用functor可以完成很多不可思议的功能。就我个人的经验,functor最密集的应用是在Boost.Spirit库中,它可以让你用一大堆Parse/Match Functor构造一个复杂的语法分析器。4 B9 E& l# B2 F$ [. x6 p" G

% K6 w6 f$ P8 O/ A- Z熟悉一门函数式语言,用心体会它的妙用。在你转变思维方式后,你会发现即便是原来你熟悉的命令式语言也能发挥出更大的威力。" Z2 a- U" R+ P
: Z1 ]0 s5 z; z6 W

8 G9 x( p8 h8 U! u4 y5 O--------------------------------------------------------------------------------# ?3 h# M" f6 Q9 ]
3 B7 l* G1 N1 w3 e* f1 N3 C3 {6 x
参考文献:" V( j- _3 b6 M2 a/ i2 Z0 j* h( V
. l7 d/ i) X- n' R# O  A0 H
“Recursive Functions of Symbolic Expressions and Their Computation by Machine, Part1.” Communication of the ACM 3:4, April 1960.
5 I. L4 Q1 L$ T2 w“The Art of the Interpreter, or the Modularity Complex (Parts Zero, One, and Two)”, Guy Lewis Steele, Jr. and Gerald Jay Sussman, MIT AL Lab Memo 453, May 1978. / V6 X, T+ X% f. [; G  ^# N, ], p- A
“Lisp 1.5 Programmer's Manual”, John McCarthy, Paul W. Abrahams, Daniel J. Edwards, Timothy P. Hart, Michael I. Levin.
" t' [; f( o  a' N, C
3 ]! ?- u, b8 @* H: d  |# r--------------------------------------------------------------------------------% t; o, D; e9 l9 t
& P* l, V2 }5 W' B, I2 }  b+ p
在线资源:$ Q" M& J9 B3 O- `) Y% n$ c! N3 e

6 ]8 r5 V3 F$ ]1 P* @8 N2 \8 Q/ `( _可免费获取的Windows版的Common Lisp版本似乎不多,能想到的只有一个CLISP,网址在:
0 V& f$ l& \+ h+ ^% Ehttp://clisp.cons.org 7 Y. H* E) n- S5 {" K# A
可用于Linux的Common Lisp我知道的有CMUCL和SBCL,网址分别是:2 `1 r- v8 [$ l
CMUCL: http://www.cons.org/cmucl/
7 \6 R$ u" a* M& ASBCL: http://sbcl.sourceforge.net' O% ]2 J6 g8 e) i. w9 g
另外,一个被广泛应用于Gnome中的Scheme实现——guile也包含在绝大多数Linux发行版里。 : i3 W/ S; o* y% w' p3 h
对Haskell有兴趣的朋友可以去http://www.haskell.org 找到很多关于Haskell的信息,同时,在http://www.haskell.org/hugs/ 你可以下载到Windows版和Linux/Unix版的Haskell解释器——Hugs98。
发表于 2006-6-6 08:47 | 显示全部楼层

请教斑竹CAD!(急)

我想通过在cad中选取直线(可以一下字选取很多直线,有的直线的土层名不一样)我现在想把直线的图层名提取出来当做字符串用!比如图层名为“cdf”,我想把“cdf
+ ~' \) \/ o! ?: d”这三个字符提出来赋值给另外的变量!
- e+ w! S  q6 w  i8 o我是这样编程的,
1 r0 A3 ^; ^* }7 ^0 l, m(setq sss (ssget))
& T) `8 P% ]! E2 `(setq e1 (ssname sss i))
3 ?; j& s0 N+ B$ X7 S' b(setq mm1 (entget e1))- g7 _: p) W/ Z8 K
(setq TM1 (assoc 8 mm1))
+ H* |! n( s; i; {3 o  j(SET TM2 (NTH 2 TM1))* }- ~% p$ D# u* @0 Y$ E8 z6 Q
但就是运行不过去!TM2 为nil
/ a& W7 g, Z' m" \& r! u) ]TM1的值还是(8 . "cdf")$ a7 J! S) J3 V; `7 v8 w
我怀疑是不是assoc这个函数的问题!
3 ?% C: k% {! J! f+ m谢谢指教!
( a9 i# K" {: b) H$ F5 g我的qq:26394744& L; R2 R. u6 e) ?
email:[email protected]
( f/ [7 v5 f1 |3 E% Q( b- H
& w2 ?3 {$ B+ i( p$ x, t5 L3 s[ 本帖最后由 wangjun7939 于 2006-6-6 08:49 编辑 ]
发表于 2006-7-18 00:15 | 显示全部楼层
搂住的只是太渊博了,高4 ]; |3 P) C3 Q
打印去学习
发表于 2006-7-24 18:52 | 显示全部楼层
Don't say more! 6 o5 p4 k* u, L' [$ ^* n. Q
Thank you very much!
发表于 2006-7-26 10:07 | 显示全部楼层
楼主真的很厉害啊!
发表于 2006-8-19 14:37 | 显示全部楼层
搂住的只是太渊博了,高
/ \" [* @' y, d3 g, q" M" Z- h9 ~打印去学习
发表于 2006-8-22 01:29 | 显示全部楼层

请问各位怎样将打印边界设置成最大(和所需打印纸张一样)~!:

请问各位怎样将打印边界设置成最大(和所需打印纸张一样)~!
  _! `7 |! ?4 g偶在打印输出时经常会出现,自己绘制的边框线已经超出打印边界,部分边框无法打印,请问各位打印边界可以调整吗~?非常感谢各位帮忙~!!!
发表于 2006-9-22 15:43 | 显示全部楼层

谢谢!

谢谢!
9 ?- D; e' |3 X: S1 `够我学一年半载的了![email protected]
发表于 2006-12-14 19:23 | 显示全部楼层
打印了
8 h$ R, M4 _  t; f. |7 o7 m/ Z5 e: d谢谢
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-19 07:03

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表