###Common Lisp

之前一直说JavaScript是一门被误解很深的语言,现在学习了一段时间Lisp后发现,Lisp才是!Lisp一直为人所诟病的是它虽然很强大,但是有点学院派,难当大用。但是读了七,八章《Practical Common Lisp》和几章《ANSI Common Lisp》之后发现,怎么就学院派了,其他编程语言能处理的,Lisp一样可以处理,其他语言处理不了的(或者很繁琐的,比如java中的循环,map之类),Lisp却能处理。

Lisp本质上是一个抽象语法树(AST)而已,但是又提供了一些操作这个AST的方法(比如强大的宏),这样很容易用Lisp开发出来一个新的DSL。用函数式编程的好处之一就是在编写完一个应用程序之后,通常还可以获得一个新的语言(于业务领域很匹配的语言)。

Common Lisp本身是Lisp的一个方言,是有一个标准来定义,其目的是为了标准化众多的Lisp分支而定。

sbcl环境

上一篇文章已经介绍了如何在Mac下配置Common Lisp的开发环境:

image

引用(quote)

由于在Lisp中,数据和代码都是通过S-expr来表示,所以需要用一种标记法来告诉解释器:这个表达式表示数据/代码。这就是引用的作用:

> (+ 1 2 3 4 5)
15

> '(+ 1 2 3 4 5)
(+ 1 2 3 4 5)

解释器会将s-expr的第一项作为函数(car),而将后续的元素(cdr)作为参数传递给第一项来调用,并求值。可以通过引用(quote)来阻止解释器这样解释。

反引号(`)

与引用对应的,有一个反引号形式的引用(在键盘上1的左边)。一般的用法上,它与quote的含义一样,都是防止解释器解释被引用的列表。

>`(a b c)
(a b c)

>`(a b (+ 1 2))
(a b (+ 1 2))

但是,反引号引用的列表提供了重新启动求值的能力,这……,我的意思是,如上式中,如果想要将(+1 2)这个子列表求值,怎么做到呢?反引号引用提供了这个能力,用逗号(,)作为子列表的前缀即可:

>`(a b ,(+ 1 2))
(a b 3)

这个当然在此刻看起来毫无用处,或者感觉略有画蛇添足之嫌,但是在宏中,这个操作符却有很广泛的用途,这里有一个有意思的例子:

(defun foo (x) 
  (only (> x 10) (format t "big than 10")))

我们可以通过if来实现此处的only,当only之后的条件满足的话,就执行后续的所有语句:

(defmacro only (condition &rest body)
  `(if ,condition (progn ,@body)))

此处可以看到,对于宏代码体中,有部分代码我们不需要引用,如(if, progn),而另外一部分则需要解释器真实地去解释来获得值。另外,我们需要宏本身返回一个列表(被引用的列表)。

通用的循环(do)

do是Lisp中通用的处理迭代的操作符,可以在其中创建局部变量:

(do ((i 0 (1+ i)))
    ((>= i 4))
  (print i))

do的格式比较复杂:

(do (variable-definition*)
	(end-test-form result-form*)
	statement*)

其中,变量声明部分的格式为:

(variable init-form step-form)

然后是测试,如果测试成功,有一个可选的返回值(上例中为nil),然后是statement部分,如果测试失败,则执行一次statement,然后通过step-from修改变量的值,测试,执行。

上例的代码会打印0-3的数字。do的另外一个功用是它支持多个变量并发的循环,这是(dolist, dotimes等无法完成的,所以在很多宏中,do是不二之选)。

(do ((n 0 (1+ n))
     (cur 0 next)
     (next 1 (+ cur next)))
    ((= 10 n) cur))

这个例子则没有statement部分,当n等于10这个测试条件成立后,返回cur当前的值。

apply 和 funcall

apply/call 这两个函数当然是FP编程语言的必备了:

> (apply #'(lambda (x y) (+ x y)) '(3 4))
7

> (funcall #'(lambda (x y) (+ x y)) 3 4)
8

注意这里的#'操作符,它表示对函数对象的引用,就像'是对list的引用一样。

list的基本操作

构造列表(cons),cons的作用是将两个对象结合成一个对象(这个新的对象由两部分组成),这两部分分别由car,cdr来引用。

> (cons 'a nil)
(a)

> (cons 'a (cons 'b nil))
(a b)

当然可以用更简洁的方式:使用list函数:

> (list a b)
(a b)

car, cdr的用法如下:

> (setf x '(a b c (d e)))
(a b c (d e))

> (car x)
a

> (cdr x)
(b c (d e))

有了car,cdr,对于既定的list,我们总是可以将其遍历(这在宏中非常有用)。