Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (6 sloc) 161 Bytes
module Problem_6
( solve
) where
sumOfSquares = sum [x^2 | x <- [1..100]]
squareOfSum = (sum [x | x <- [1..100]]) ^ 2
solve= squareOfSum - sumOfSquares
You can’t perform that action at this time.