Commits

Shu Zong Chen committed f196c9b

Solved 6

  • Participants
  • Parent commits d7a833e

Comments (0)

Files changed (1)

File problems/problem6.hs

+{-
+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 = 552 = 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.
+-}
+
+sum_of_squares:: Integer -> Integer
+sum_of_squares x = sum [x^2 | x <- [1..x]]
+
+square_of_sum:: Integer -> Integer
+square_of_sum x = ((1 + x) * (x `div` 2)) ^ 2
+
+work target = (square_of_sum target) - (sum_of_squares target)
+
+main = print (work 100)