2007-06-25から1日間の記事一覧
輪講の宿題。($) あたりがポイント。笑 applyAll funs x は、関数のリストを取ってそれを右から順に初期値に適用していく関数。 Prelude> let applyAll = flip $ foldr ($) Prelude> applyAll [(+1),(+2),(+3)] 1 7 Prelude>
再帰できる。ここまで長かった。 slisp> (define fact (lambda (x) (if (= x 0) 1 (* x (fact (- x 1)))))) #<undef> slisp> fact #<subr(lambda)> slisp> (fact 10) 3628800 slisp></subr(lambda)></undef>