--/--/--

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

2008/10/29

Project Euler: Problem 20

Problem 20

文字列化したら負けかなと思ってる。

実行結果

$ runhaskell 20.hs
648

プログラム

 1 fact 0 = 1
 2 fact x = x * fact (x-1)
 3
 4 figureSum 0 = 0
 5 figureSum n = d + figureSum n'
 6   where (n',d) = divMod n 10
 7
 8 fn = figureSum $ fact 100
 9
10 main = print $ fn
スポンサーサイト

comment

post




上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。