2012-01-14から1日間の記事一覧

Control.Arrowでエラトステネスの篩, 階乗

エラトステネスの篩の前に, 階乗をArrowでやります. 理由はおいおい分かります. 階乗を普通に fact n = if n == 0 then 1 else n * fact (n - 1) main = print $ fact 10 3628800 流石にこれはいいですね. はい.Arrowに急ぐ前に, まずfixを使って書きましょ…