SICP 练习1.1
CL-USER> 10
10
CL-USER> (+ 5 34)
39
CL-USER> (- 9 1)
8
CL-USER> (/ 6 2)
3
CL-USER> (+ (* 2 4) (- 4 6))
6
CL-USER> (defvar a 3)
A
CL-USER> a
3
CL-USER> (defvar b (+ a 1))
B
CL-USER> b
4
CL-USER> (+ a b (* a b))
19
CL-USER> (= a b)
NIL
CL-USER> (if (and (> b a) (< b (* a b)))
b
a)
4
CL-USER> (cond ( (= a 4) 6)
( (= b 4) (+ 6 7 a))
(else 25))
16
CL-USER> (+ 2 (if (> b a) b a))
6
CL-USER> (+ (cond ((> a b) a)
((< a b) b)
(else -1))
(+ a 1))
8
CL-USER>
10
CL-USER> (+ 5 34)
39
CL-USER> (- 9 1)
8
CL-USER> (/ 6 2)
3
CL-USER> (+ (* 2 4) (- 4 6))
6
CL-USER> (defvar a 3)
A
CL-USER> a
3
CL-USER> (defvar b (+ a 1))
B
CL-USER> b
4
CL-USER> (+ a b (* a b))
19
CL-USER> (= a b)
NIL
CL-USER> (if (and (> b a) (< b (* a b)))
b
a)
4
CL-USER> (cond ( (= a 4) 6)
( (= b 4) (+ 6 7 a))
(else 25))
16
CL-USER> (+ 2 (if (> b a) b a))
6
CL-USER> (+ (cond ((> a b) a)
((< a b) b)
(else -1))
(+ a 1))
8
CL-USER>
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/133735/viewspace-749591/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
各种数据库的resin 连接池的写法
下一篇：
SICP 练习 1.3
请登录后发表评论
登录
全部评论
