2007-11-21から1日間の記事一覧

SICPを読む(63) 問題 2.45 ラムダ再帰を返したい。

引き続き図形言語。 問題 2.45 (define (split parent child) (define (iter painter n) (if (= n 0) painter (let ((smaller (iter painter (- n 1)))) (parent painter (child smaller smaller))))) iter) 問題は解けたけど、iterを使わず、ラムダ再帰を返…

はじめてのLogo

Logo楽しいかも。 #!/usr/bin/logo to fib :n if :n = 0 [output 0] if :n = 1 [output 1] forward :n * 10 right 90 output (fib :n - 1) + (fib :n - 2) end print fib 15 ; byeとりあえずフィボナッチまで書くことに成功〜。Vimじゃ色が付かないので、構…

SICPを読む(62) 問題 2.44 SICP一番の楽しみ

いよいよSICP一番の楽しみ。図形言語に入ってます。図形言語楽しすぎ。 分割するイメージを掴んだら後は凄く簡単。縦に分割して、横に並べてぇ・・・みたいな。ペタペタ貼っていくだけ。凄く高度な事をやっているはずなのにシンプルなAPIで実現出来てしまう…