Special Pythagorean Triplet

1 files changed, 11 insertions, 0 deletions

diff --git a/0009/main.hs b/0009/main.hs
new file mode 100644
index 0000000..ea16a29
--- /dev/null
+++ b/0009/main.hs
@@ -0,0 +1,11 @@
+triplets = foldl1 (++) $ map triplets1 [1..499]
+    where triplets1 x = foldl1 (++) $ map triplets2 [x+1..999-x]
+            where triplets2 y = [(x,y,1000-x-y)]
+
+theTripet = filter (\(a,b,c) -> a^2 + b^2 == c^2) triplets
+
+tripletProduct (a,b,c) = a * b * c
+
+main = do
+    putStrLn $ show $ tripletProduct $ head theTripet
+