红药丸，还是蓝药丸

首先来看 progn 表达式&＃xff0c;它的作用是让 Emacs Lisp 解释器依序对一组并列的表达式进行求值&＃xff1a;

(progn<表达式 1><表达式 2>... ... ...<表达式 n>)

由于 progn 本身也是一个表达式。按照 Emacs Lisp 解释器的法律&＃xff0c;每个表达式必须有一个值。因此&＃xff0c;progn 表达式会将它所囊括的这组表达式中的最后一个表达式的求值结果作为自身的结果。

实际上&＃xff0c;list 表达式也能产生类似 progn 的效用。例如&＃xff1a;

(list<表达式 1><表达式 2>... ... ...<表达式 n>)

Emacs Lisp 解释器会对 list 囊括的这组表达式依序求值。只不过 list 返回的是这组表达式的全部的求值结果&＃xff0c;亦即列表。

insert 函数&＃xff0c;我们已经见识过多次了。虽然一直没对它做太多介绍&＃xff0c;但是通过实践&＃xff0c;不难发现&＃xff0c;它可以在缓冲区里光标所在的位置插入文本——字符串原子。

format 函数&＃xff0c;它可以用于构造字符串原子&＃xff0c;只不过是以格式化的方式。所谓格式化&＃xff0c;就相当于……做语文填空题。例如&＃xff0c;(format "%d-" m)&＃xff0c;就相当于在 "( )-" 这句话的括号内填写一个数字。倘若你填 1&＃xff0c;那么这句话就变成了 "1-"。同理 (format "%d\n" m))&＃xff0c;倘若填上 10&＃xff0c;结果就是 "10\n"。在字符串原子中&＃xff0c;\n 这个字符表示换行&＃xff0c;相当于你在文本编辑器里输入一行文本之后&＃xff0c;单击了一次回车键。

还有一个很简单的表达式&＃xff0c;(&＃43; m 1)&＃xff0c;它的意思是 m &＃43; 1。&＃43; 是数字原子的运算符&＃xff0c;它也是一个函数。类似的还有 -、*、/、<、>、&＃61;、>&＃61;、<&＃61;。虽然这些运算符的用法不太符合我们在小学数学里学到的运算方法&＃xff0c;但有的时候它也很有用。例如&＃xff0c;你去超市买了许多东西&＃xff0c;回家后想核对一下钱数&＃xff0c;可以这样算 (&＃43; 2.5 8.75 9 10 20 35.5)。

弄懂了这些琐碎的函数的含义&＃xff0c;齿轮 函数的定义差不多可以看懂了吧&＃xff1f;这个函数最难看懂的部分其实是它在内部对自身进行求值——递归求值。

还记得那个 c-malloc 函数吗&＃xff1f;

(defun c-malloc (name type n)(interactive(list (read-string "变量名称&＃xff1f;")(read-string "类型&＃xff1f;")(read-string "数量&＃xff1f;")))(insert (format "%s *%s &＃61; malloc(%s * sizeof(%s));" type name n type)))

当我依序回答这个函数问我的三个问题之后&＃xff0c;它就会在缓冲区里显现&＃xff1a;

double *foo &＃61; malloc(n * sizeof(double));

这个函数有个问题&＃xff0c;当 n 为 1 时&＃xff0c;它会给出&＃xff1a;

double *foo &＃61; malloc(1 * sizeof(double));

在 C 语言中&＃xff0c;1 * sizeof(double) 表示拿 1 去乘一个数。小学生都知道&＃xff0c;拿 1 去乘一个数就等于那个数本身。因此 c-malloc 若想表现自己已经小学毕业了&＃xff0c;那么对于这样的情况&＃xff0c;它应该给出&＃xff1a;

double *foo &＃61; malloc(sizeof(double));

为此&＃xff0c;需要对 c-malloc 略作改进&＃xff1a;

(defun c-malloc (name type n)(interactive(list (read-string "变量名称&＃xff1f;")(read-string "类型&＃xff1f;")(read-string "数量&＃xff1f;")))(if (string&＃61; n "1")(insert (format "%s *%s &＃61; malloc(sizeof(%s));" type name type))(insert (format "%s *%s &＃61; malloc(%s * sizeof(%s));" type name n type))))

以上&＃xff0c;就是 Emacs Lisp 语言中常用的条件表达式的用法。在程序中&＃xff0c;我们可以用它们来模拟「选择」。

一些热衷于从哲学层面探究人生意义的成功人士喜欢说这样的话&＃xff0c;人生的意义&＃xff0c;就在于你的选择&＃xff01;

他们若是略微懂一点编程&＃xff0c;就会发现这样的话有些愚蠢。倘若人生的意义真的是在于选择&＃xff0c;这就是变相地承认自己活在一个编制好的程序里。任何选择&＃xff0c;在这个程序里&＃xff0c;不过是一个谓词&＃xff0c;而与这个谓词相关联的表达式早已在那里了。也就是说&＃xff0c;无论你怎么选择&＃xff0c;你的人生早已确定。因此&＃xff0c;说人生的意义在于选择&＃xff0c;无异于说自己相信天命所归&＃xff0c;这就是所谓的宿命论。倘若一切都是程序安排好的结果&＃xff0c;那么你选与不选&＃xff0c;本质上并没有区别&＃xff0c;你并没有权力不选择什么……

在我看来&＃xff0c;人生的意义至少在于 debug。无论怎么看&＃xff0c;去消除这个世界的 bug&＃xff0c;总比被这个世界逼迫着整天作各种选择更有意义。

下一篇&＃xff1a;周游抑或毁灭世界