diff options
Diffstat (limited to 'haskell/006-sum_square_difference.hs')
| -rw-r--r-- | haskell/006-sum_square_difference.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/haskell/006-sum_square_difference.hs b/haskell/006-sum_square_difference.hs new file mode 100644 index 0000000..3c277af --- /dev/null +++ b/haskell/006-sum_square_difference.hs @@ -0,0 +1,18 @@ +-- Sum square difference + +-- Problem 6 +-- The sum of the squares of the first ten natural numbers is, + +-- 1^2 + 2^2 + ... + 10^2 = 385 +-- The square of the sum of the first ten natural numbers is, + +-- (1 + 2 + ... + 10)^2 = 55^2 = 3025 +-- Hence the difference between the sum of the squares of the first ten natural +-- numbers and the square of the sum is 3025 − 385 = 2640. + +-- Find the difference between the sum of the squares of the first one hundred +-- natural numbers and the square of the sum. + + +main = do + print (sum [1..100] ^ 2 - sum (map (^2) [1..100])) |