2008-01-04から1日間の記事一覧

SICP ex.4.21

気分転換にやってみたけど、あまり面白くなかった。 # ex.4.21.rb =begin a. ((lambda (n) ((lambda (fact) (fact fact n)) (lambda (ft k) (if (= k 1) 1 (* k (ft ft (- k 1))))))) 10) =end lambda {|n| lambda {|fact| fact.call(fact, n) }.call lambda…