main :: IO () main = putStr $ show $ solve 100 solve :: Integer -> Integer solve n = squareOfSum n - sumOfSquares n where squareOfSum :: Integer -> Integer squareOfSum n = sum [1 .. n] ^ 2 sumOfSquares :: Integer -> Integer sumOfSquares n = sum $ map (^ 2) [1 .. n]