lisp base

一、quote

lisp 使用s-expr表示数据和代码，通常会将第一项作为函数，而将后续元素当做参数传给第一项进行计算。可以通过quote来进行其他解析，quote可用（‘）表示：

  （ + 1 1）

   2

  ‘（+ 1 1）

   （+ 1 1）

二、反引号（·）

（·）按键（~）为同一个键盘按键。作用和quote差不多，但可以使其中部分字符串保留原解析，需要使用,放在需要保留原解析的字符串之前。

 `(+  1 ,(+ 0 1))

  (+  1 1)

三、 #’

该操作符表示对函数的引用

四、控制结构

(do ((x 1 (+ x 1))

         (y 1 (* y 2)))

         ((> x 5) y)

         (print y)

         (print 'working))

cond

(cond

     ((evenp a) a) ;if a is even return a

     ((> a 7) (/ a 2)) ;else if a is bigger than 7 return a/2

     ((< a 5) (- a 1)) ;else if a is smaller than 5 return a-1

     (t 17)) ;else return 17 

2

case

(setq x 'd)

(case x

      (a 5)

      ((d e) 7)

      ((b f) 3)

      (otherwise 9))

7

loop

(setq a 4)

(loop

     (setq a (+ a 1))

     (when (> a 6) (return a)))

7

(if t 6 5)

6

(if nil 6 5)

5

五、block

Common Lisp 的构造区块（block）的基本操作符：progn 、block 以及 tagbody 。

progn主体中的表达式会顺序求值并返回最后一个表达式的值。

(progn

    (format t "a")

    (format t "b")

    (+ 11 12))

ab

23

block相当于带有特别出口的progn。

(block head

    (format t "Here we go.")

    (return-from head 'idea)

    (format t "We'll never see this."))

Here we go.

IDEA

tagbody大多数迭代操作符都隐含一个tagbody。

(tagbody

    (setf x 0)

    top

      (setf x (+ x 1))

      (format t "~A " x)

      (if (< x 10) (go top)))

1 2 3 4 5 6 7 8 9 10

NIL

return宏把传入的参数当做封闭区块nil的返回值。

(block nil

    (return 27))

27

在一个block(明确定义的或隐含的)，不论return-from或者return都不会运行。

六、函数

可通过 symbol-function 给函数配置某个名字：

(setf (symbol-function 'add2)

  #'(lambda (x) (+ x 2)))

新的全局函数可以这样定义，用起来和 defun 所定义的函数一样：

(add2 0)

 2

通过 defun 或 symbol-function 搭配 setf 定义的函数是全局函数。你可以像存取全局变量那样，在任何地方存取它们。定义局部函数也是有可能的，局部函数和局部变量一样，只在某些上下文内可以访问。

局部函数可以使用 labels 来定义，它是一种像是给函数使用的 let 。它的第一个实参是一个新局部函数的定义列表，而不是一个变量规格说明的列表。列表中的元素为如下形式：

巴特西

lisp base

最新文章

热门文章