きったんの頭_ん中☆

Problem 6

pe6 :: Int -> Int
pe6 n = (sum [1..n]) ^ 2 - (sum $ map (^ 2) [1..n])

main :: IO()
main = print $ pe6 100