2008-04-30 Problem20 Project Euler 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