"血をもって書け。そうすればあなたは、血が精神だということを経験するだろう。"

Problem20

n × (n - 1) × ... × 3 × 2 × 1 を n! と表す。

100! の各桁の数字の合計を求めよ。

haskell

main=print $ sum_ $ product $ [1..100]
sum_ n
 |n<10     =n
 |otherwise=(+(mod n 10)) $ sum_ $ div n 10

answer

648