SICP読書会お休みの回（in 渋谷）

event
  • 会場が確保できなかったのでnaoya_tさんの迎撃会に
  • でも東京からの参加は二人（泣）
    • 時間設定にちょっと無理があった
  • SchemerはLisperではない
  • 再帰はがしがxyzzy界隈で話題に
  • OCamlはふつうっぽい
  • naoya_tさんのご希望で喫茶店に
  • 横で二人が濃い話をしてるのをぼーっと聞いておりました
  • 結局、アドバンストSICP読書会になっちゃうし。SICPを持ってきてなかったのは私だけ
  • 問題の答えは紙に書く。実行するのは軟弱
    • 書いたコードが実行できる黒板とか
  • naoya_tさんはSICPを読み終えて最後の問題をやってる
  • Objective-C/CocoaでSchemeを実装してるとのこと
    • オブジェクトでcall/ccを実装するのは無理っぽい
  • SICPだけで作れるのは言語処理系くらい
  • Gaucheが実用的なのはCommon Lispの考え方を取り入れているから
  • 名前付きletの環境をどう実装するかがメインの話題に

以下、復習

(define (fib n)
  (let fib-iter ((a 1)
                 (b 0)
                 (count n))
    (if (= count 0)
        b
        (fib-iter (+ a b) a (- count 1)))))

↑これを
こうする↓

(define (fib n)
  (let ((fib-iter '*unassigned*))
    (set! fib-iter
          (lambda (a b count)
            (if (= count 0)
                b
                (fib-iter (+ a b) a (- count 1)))))
    (fib-iter 1 0 n)))

追記
shiroさんのご指摘により修正
R5RSによると↓みたいです

(define (fib n)
  ((letrec ((fib-iter (lambda (a b count)
                        (if (= count 0)
                            b
                            (fib-iter (+ a b) a (- count 1))))))
     fib-iter)
   1 0 n))

↓でも動作おk

(define (fib fib-iter)
  ((letrec ((fib-iter (lambda (a b count)
                        (if (= count 0)
                            b
                            (fib-iter (+ a b) a (- count 1))))))
     fib-iter)
   1 0 fib-iter))