From 254727b0a88da0040aef895d946f981588d640f7 Mon Sep 17 00:00:00 2001
From: Evan Hemsley <evan@moonside.games>
Date: Wed, 28 Oct 2020 01:23:29 -0700
Subject: [PATCH] haskell 006

---
 haskell/euler006.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 haskell/euler006.hs

diff --git a/haskell/euler006.hs b/haskell/euler006.hs
new file mode 100644
index 0000000..a80837f
--- /dev/null
+++ b/haskell/euler006.hs
@@ -0,0 +1,8 @@
+module Main where
+
+sum_of_squares n = sum $ map (\m -> m * m) [1..n]
+
+square_of_sum n = (\m -> m * m) (sum [1..n])
+
+main = do
+    print $ (square_of_sum 100) - (sum_of_squares 100)