common lisp chapter 2 练习

1、描述下列表达式求值之后的结果

(a) (+ (- 5 1) (+ 3 7))

14

(b) (list 1 (+ 2 3))
(1 5)

(c) (if (listp 1) (+ 1 2) (+ 3 4))
7

(d) (list (and (listp 3) t) (+ 1 2))
(Nil 3)

2、给出 3 种不同表示 (a b c) 的 cons 表达式

(cons 'a (cons 'b (cons 'c nil)))

(cons 'a '(b c))

(cons 'a (cons 'b '(c)))

3、使用 car 与 cdr 来定义一个函数，返回一个列表的第四个元素。

(defun our-fourth(lst)
(car (cdr (cdr (cdr lst))))
)