練習1.16
這道題題目特別長，說的無非就是要用乙個不變數記錄中間結果，然後寫出對數步數內的通過迭代來計算冪的函式，當然了還要用到題目中括號內的那個關係。下面就直接上**了：
(define(fast-expt b n)
(fast-expt-iter 1 b n))
(define(fast-expt-iter a b n)
(cond ((= n 0) a)
((even? n) (fast-expt-iter a
(square b)
(/ n 2)))
((odd? n) (fast-expt-iter (* a b)
b(- n 1)))))
寫完**無一例外的就是測試了:
(fast-expt2 30)
;value:1073741824
(fast-expt0.123 4)
;value:.000228886641
SICP練習 7 練習1 11
這種題目太像是數學題目了，不過拿到程式設計上又有一些的難度。我們先根據題目中的條件，寫出類似於第 25頁最下面的變換規則。我們先列出如下內容 a f n 1 f 2 f 3 f 4 f 5 b f n 2 f 1 f 2 f 3 f 4 c f n 3 f 0 f 1 f 2 f 3 於是繼而得出下...
SICP練習 12 練習1 18
練習1.8 和前兩題一樣，依舊是只能用對數步數。而且這個迭代過程要基於加 加倍和折半運算。這乙個習題要用到前面的函式，因此最好的做法是，每次都將寫好的 儲存起來。load test1.18.scm 這行 可以用來載入 而儲存可以用c x,c w。以下是該題的 這次我們寫成塊結構 define x y...
SICP練習 17 練習1 23
練習1.23 首先我們按照題目要求來寫出相應的next函式，然後再修改find divisor函式。define next x if x 2 3 n 2 define find divisor ntest divisor cond square test divisor n n divides?te...