2011-07-17から1日間の記事一覧

gaucheノート  名前付きlet(named let)

末尾再帰で階乗を計算する関数 gosh> (define (fact-tailrec n acc) (if (= n 1) acc (fact-tailrec (- n 1) (* n acc)))) fact-tailrec gosh> (fact-tailrec 5 1) 120 letを使用して局所的な関数を定義することができ、これで末尾再帰がかけるようです。let…

冷珈ソーダ(れいこーそーだ)

http://www.ueshima-coffee-ten.jp/menu/season.html れいこー http://zokugo-dict.com/42re/reiko.htm http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1212372867

ルーク篁

野村ギター商会 #15 ゲスト:ルーク篁 http://www.youtube.com/watch?v=BfeHeErDlXY タモリの音楽は世界だ 竹内光雄、ルーク篁 天国への階段 http://www.youtube.com/watch?v=Gg7tjbB4dQ8 昨日からの逃げ道 NSP http://www.youtube.com/watch?v=Ew-TlUdKNFk

風の詩

http://www.youtube.com/watch?v=2ExlLOGyk4o&NR=1 http://www.youtube.com/watch?v=cZrxoGOhwvU

gaucheノート  末尾再帰(tail recursion)

階乗を計算する関数 gosh> (define (fact n) (if (= n 1) 1 (* n (fact (- n 1))))) fact gosh> (fact 10) 3628800 末尾(tail)に呼び出す(call)手続きが、乗算(→(* n (fact (- n 1))))のため、末尾再帰ではない 末尾再起で階乗を計算する関数 gosh> (define …

Qui A Le Droit