From 6b16d921543a62d880171791d39bcc58560785fa Mon Sep 17 00:00:00 2001 From: Charles Date: Sun, 11 Aug 2019 22:36:40 +0200 Subject: haskell problems 001 -> 006 --- haskell/006-sum_square_difference.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 haskell/006-sum_square_difference.hs (limited to 'haskell/006-sum_square_difference.hs') 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])) -- cgit