6問目
http://projecteuler.net/index.php?section=problems&id=6
1から100の和の二乗と二乗の和の差を求める。
それだけ。
mapのところはもう少し簡潔に書けないのかなぁ。(←コメントを頂いて修正しました)
main = print $ euler006 [1 ..100] euler006 :: [Int] -> Int euler006 xs = (sum xs) ^ 2 - sum (map (^ 2) xs) -- = (sum xs) ^ 2 - sum (map (flip (^) 2) xs)