vin / challenge

Python challenge and project euler

challenge / euler / euler034.hs
100644 8 lines (5 sloc) 0.164 kb
raw blame history 
1
2
3
4
5
6
7
8

import Char
fac n = product [1..n]
 
sumfac :: Int -> Int
sumfac = sum . map fac . map digitToInt . show
 
main = print $ sum [ n | n <- [10..100000], sumfac n == n]