SICP練習 12 練習1 18

2021-09-23 23:27:33 字數 561 閱讀 8380



練習1.8

和前兩題一樣,依舊是只能用對數步數。而且這個迭代過程要基於加、加倍和折半運算。這乙個習題要用到前面的函式,因此最好的做法是,每次都將寫好的**儲存起來。

(load「test1.18.scm」)

這行**可以用來載入**。而儲存可以用c-x,c-w。

以下是該題的**,這次我們寫成塊結構:

(define(* x y)

(define (*-iter x y product)

(cond ((= y 0) product)

((even? y) (*-iter (double x)

(halve y)

product))

((odd? y) (*-iter x

(- y 1)

(+ x product)))))

(*-iter x y 0))

依舊還是來測試一番:

(*18 3)

;value:54

(*0.123456789 987654321)

;value:121932631.11263525

SICP練習 12 練習1 18

練習1.8 和前兩題一樣,依舊是只能用對數步數。而且這個迭代過程要基於加 加倍和折半運算。這乙個習題要用到前面的函式,因此最好的做法是,每次都將寫好的 儲存起來。load test1.18.scm 這行 可以用來載入 而儲存可以用c x,c w。以下是該題的 這次我們寫成塊結構 define x y...

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練習 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...