我也说说Emacs吧(7)

lisp基础

Lisp是仅次于Fortran的第二古老的著名计算机语言。

Lisp从一开始就与众不同的一点在于，它是基于S-表达式的语言。也就是说，代码和数据是用同一种方式表达出来的。

S-表达式，我们直观上理解，就是用括号括起来的一串列表。

比如:

(+ 1 1)

Lisp会对这个S-表达式进行求值。

S-表达式可以嵌套，比如可以这样写

(+ 1 (* 2 3))

在lisp中，默认的操作是对S-表达式求值。如果是个数字，就对数字直接求值。如果是字符串也是如此。如果是个表，则将第一个原子当成函数名，对其进行求值。

那么，如果我们只想将一个S-表达式当成数据，不要计算怎么办？我们可以使用quote符号来进行指定，比如：

(quote (+ 1 2))

结果就返回(+ 1 2)这个列表。

quote在lisp中实在是太常用了，所以我们可以用符号“’”来作为它的简称。

定义变量

大家都是写代码的老司机啦，我们就直接从定义变量开始说起。

定义变量可以使用set函数。

(set 'three (+ 1 2))

要注意，因为变量名是不求值的，所以要用quote或者’来阻止求值。将来用变量的值的时候就不用quote了。

定义变量的时候，符号是基本上不可能用求值的，所以’是基本上必须的。每次写太麻烦，于是专门有个setq特殊表，直接包含了对于第一个参数的不求值的quote行为。

定义带文档的变量：defvar特殊表

setq特殊表几乎是lisp语言中最常用的特殊表，但是它有一个问题，变量没有文档。而在emacs中，函数和变量的文档是非常受到重视的。

对于代码中有重要作用的变量，在定义的时候，我们可以通过defvar特殊表来实现。

defvar特殊表不同于setq的是，它只针对未赋过初值的新变量有效，如果已经有值了，它就不起任何作用。所以我们在第一次定义变量的时候使用defvar特殊表吧，文档还是很重要的。

定义局部变量：let特殊表

let可以定义局部变量。let定义的绑定只在函数内部起作用。

格式：

(let ((变量名 绑定值)(变量名 绑定值)) 语句)

例：

(let ((a 1)(b 2)) (+ a b))

a被赋值1，b被赋值2.最终表达式结果是3.

在let中，如果未指明绑定值，则自动绑定到nil上。

注释

emacs的注释以分号开头，分号之后全是注释。

表处理

car和cdr：取表头和其余部分

下面我们开始进入lisp不同于命令式语言的一个特色功能，表处理。

* car函数：取一个表的第一个元素

* cdr函数：取一个表的除了car取到部分的其它部分

例：

(car '(1 2 3))

将返回1.

(cdr '(1 2 3 4 5))

取得的结果是(2 3 4 5)

nthcdr函数：多次cdr

如果我们要从(1 2 3 4 5)这个表中取(3 4 5)这样的子表，一次cdr不够，需要做两次，像这样：

(cdr (cdr '(1 2 3 4 5)))

有个更简单的写法是使用nthcdr函数：

(nthcdr 2 '(1 2 3 4 5))

nthcdr的第一个参数，如果是0，则直接返回原表。如果是1，则退化成cdr。

cons函数：将car和cdr拼接起来

cons是car和cdr的逆运算。将两个表拼接成一个新表。

例：

(cons '1 '(2 3 4))

将得到(1 2 3 4).

请注意，cons会将第一个参数当成一个元素处理。

比如：

(cons '(1 2 3) '(4 5 6))

得到的结果不是(1 2 3 4 5 6)而是((1 2 3) 4 5 6)

append函数：将两个表合成一个表

cons是将car和cdr合在一起，如果是想将(1 2 3)和(4 5 6)连接成(1 2 3 4 5 6)，此时应该使用append函数：

(append '(1 2 3) '(4 5 6))

获取表中最后一个元素：last函数

car可以获取第一个元素，获取最后一个元素的话可以使用last函数。

构造一个新表: list函数

(list 1 2 3 4)

将构造出(1 2 3 4)表。

求表长度：length函数

例：

(length '(1 2 4 5))

结果为4.

给表换car和cdr：setcar和setcdr函数

例：

(setq list1 '(1 2 3 4))
(setcar list1 5)

此时再通过C-h v去查list1的值，已经变为(5 2 3 4).

我们再将其后部也换掉：

(setcdr list1 '(6))

list1此时的值已经变成(5 6)

将表逆序排列：reverse函数

例：

(reverse '(1 2 3 4))

结果为：(4 3 2 1)

像命令语言一样顺序编程

Lisp基本上是一种函数式的语言。也就是说，如果在C语言中这样写的语句：

int a=func1(0);
int b=func2(a);
int c=func3(b);

换成lisp的写法是这样的：

(func3 (func2 (func1 0)));

我们来个小例子看看：

(defun func1 (x)
  (+ x 1))
(defun func2 (x)
  (* x 2))
(defun func3(x)
  (* x x))
(func3 (func2 (func1 0)))

先执行的，要写在最里面。但是，学习命令式编程的同学们，习惯于先写最先执行的func1，倒过来写觉得思路转不过来。

Lisp善解人意地提供了progn特殊表，可以像C一样顺序执行。

我们可以这么写：

(progn
  (setq a (func1 0))
  (setq b (func2 a))
  (setq c (func3 b)))

针对整个表的进行操作 - mapcar函数

Lisp毕竟是针对表进行处理的语言，如果像命令式的方式处理一个表未免有点low了。

假如我们想将一个表中的每个数字都求平方，我们先定义一个平方函数：

(defun sqr2 (x)
  (* x x))

然后，我们就可以调用mapcar函数，对整个表都应用sqr2函数：

(mapcar 'sqr2 '(1 2 3 4))

针对这样只用一次的函数，我们可以使用lambda表达式来实现：

(mapcar (lambda (x) (* x x)) '(5 6 7 8))

lambda很有趣，既不是函数，也不是特殊表，而是一个宏。关于宏，我们后面再讲。

apply函数

最后介绍一下apply函数，它是可以将函数对表执行操作的函数。

我们看个例子：

(apply '+ '(5 6 7 8))

就相当于：

(+ 5 6 7 8)

小结

setq特殊表：定义变量
defvar特殊表：定义带有文档的变量，只能做第一次的初始化，有值就不能用了
let特殊表：定义函数内部的局部变量
car和cdr，nthcdr：取表头和其余部分
last函数：取表尾
cons: 构造新表
length函数：求表长度
append函数：将几个表合并为一个
reverse函数：将表反序重排
setcar, setcdr: 给表换头或换其余部分
mapcar函数：针对每个元素分别进行操作
apply函数：针对表执行操作
lambda宏：定义匿名函数
progn特殊表：顺序编程