2009-03-16から1日間の記事一覧
名前付きletがなかなか腑に落ちないので、名前付きlet使って階乗計算(ローカル手続きで末尾再帰)やってみた。 gosh> (use srfi-1) #<undef> gosh> (define fact-named-let (lambda (n) (let f ((m n) (cont (lambda (_) _))) (if (= m 0) (cont 1) (f (- m 1) (la</undef>…
名前付きletがなかなか腑に落ちないので、名前付きlet使って階乗計算(ローカル手続きで末尾再帰)やってみた。 gosh> (use srfi-1) #<undef> gosh> (define fact-named-let (lambda (n) (let f ((m n) (cont (lambda (_) _))) (if (= m 0) (cont 1) (f (- m 1) (la</undef>…