読書会した

SICP

1 章の最終盤。
数学の知識が微妙なおっさんに我慢強く色々とフォローしてくれる sw@mac の中の人。色々と申し訳ないやら有り難いやら。
今日はうちのがきが発熱で早退したとの事で、あまりがっつりできず、こちらも申し訳ない。以下にいくつかメモを。

  • golden ratio (黄金比)
    • (/ (+ 1 (sqrt 5)) 2) との事
  • 問題 1.38 は 1, 2, 1, 1, 4, 1, 1, 6, 1, 1, 8, 1, ... という数列を (順に) 戻す lambda な手続きを検討する設問
    • 繰り返しな cont-frac が以下とすると
(define (cont-frac ni di k)
  (let ((i 1))
    (let iter ((i i) (result (/ (ni i) (di i))))
      (if (> i k)
	  result
	  (iter (+ i 1) (/ (ni i) (+ (di i) result)))))))

di に渡す lambda な手続き定義は以下?

(lambda (i)
  (if (= 2 (remainder i 3))
      (* (/ (+ 1 i) 3) 2)
    1))

多分正しい解は sw@mac にてエントリ投入されるはず。1 章の残りは設問 1.39 以降となってます。