1.1
10,12,8,3,10 6,a,b,19,#f,4,16,6,16
1.2
(/(+ 5 4 (- 2 (- 3 (+ 6(/ 4 5)))))(* 3 (- 6 2)(- 2 7)))
or
(/(+ 5 4 (- 2 (- 3 (+ 6 4/5))))(* 3 (- 6 2)(- 2 7)))
1.3
這個問題中文版的翻譯是錯的，參看原文是求平方和而不是“和”。
(define (square(x)(* x x)))
(define (max x y)(if (< x y) y x))
(define (func x y z)
(+ (square (max x y))
(square (max (min x y) z))))
1.4
a+|b|
<=>
1 # in python
2 def a_plus_abs_b(a,b):
3 if b>0 :
4 x = a + b
5 else:
6 x = a - b
7 return x
1.5
在網上看了很多答案，都認為“應用序”的實現會導致死循環，我非常困惑。反復看了中文版和英文版，覺得大家這樣認為可能是書中說lisp的實現是“應用序”，而在scheme中跑這段代碼會死循環，就先入為主的認為“應用序”的實現會死循環。其實對照正文，我們可以看到“正則序”停止展開的條件是“只包含基本運算符的表達式”，而對于
(define (p) (p))
是無論如何也沒法完全展開的，因為它會不斷遞歸，所以“正則序”才會死循環。
而對于“應用序”的實現，則會這樣展開
(test 0 (p))
(if (= 0 0) 0 (p))
(if #t 0 (p))
; 0
解決這個問題主要是“正則序”（Normal order）以及“應用序”（Applicative order）展開一個組合式的規則，仔細研究了MIT 6.001課程講義，網上的各種答案，以及中英文版。我認為，正則序以類似廣度優先的方式進行展開。而應用序優先計算子表達式，類似與深度優先。那么對于這個問題，正則序會展開為
=> (if (= 0 0) 0 (p))
=> (if #t 0 (p))
接著，由于這是一個if的special form（特殊形式），就會被展開為
0
而應用序，由于(p)一直可以遞歸代換，從一開始就會進入一個無限遞歸中去。
簡言之，由于應用序的原因，在 test 表達式 還沒有展開為 if 特殊形式（special forms）時， (p)已經陷入了無限遞歸。