프로젝트 오일러 48 haskell 풀이

haskell 로는 거저먹는 문제.
쉬운문제 찾다보니.. 낄낄.

-- 흠. fold 의 묘미를 아직 잘 모르겠지만 쉽게 풀긴 했다. foldr 을
-- 쓰기에 적당한 상황이었는지 모르겠네.
f n = foldr (\x acc->acc+(x^x)) 0 [1..n]
solve = f 1000 `mod` 10^10

main = print solve