1 2 3 4 5 6sumOfSquares x = sum [ x * x | x <- [1..x] ] squareOfSum x = s * s where s = x * (x + 1) `div` 2 main = print $ (squareOfSum 100) - (sumOfSquares 100)
1 2 3 4 5 6
sumOfSquares x = sum [ x * x | x <- [1..x] ] squareOfSum x = s * s where s = x * (x + 1) `div` 2 main = print $ (squareOfSum 100) - (sumOfSquares 100)