project euler problem 20
久しぶりに簡単な問題だった。
main = print $ sum $ map toIntg $ show $factorial 100 toIntg::Char->Integer toIntg x = read [x] factorial::Integer->Integer factorial 1 = 1 factorial n = n * factorial (n-1)
まあ、以下の1行でもいいか。
|<Prelude> sum $ map (\x->(read[x])::Integer) $ show $ foldl1 (*) [1..100] 648