From 779e56d0a5b6f093785fb130caf7cf06c0433dd9 Mon Sep 17 00:00:00 2001
From: Evan Hemsley <evan@moonside.games>
Date: Wed, 28 Oct 2020 02:22:47 -0700
Subject: [PATCH] haskell 009

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

diff --git a/haskell/euler009.hs b/haskell/euler009.hs
new file mode 100644
index 0000000..920929e
--- /dev/null
+++ b/haskell/euler009.hs
@@ -0,0 +1,9 @@
+module Main where
+
+is_int num = num == fromInteger (round num)
+
+-- this is a kludge - does haskell let us search an iterator?
+pythagorean_triples = [(a, b, c) | b <- [1..], a <- [1..b], let c = sqrt (a * a + b * b), is_int c && (a + b + c == 1000.0) ]
+
+main = do
+    print $ (\(a, b, c) -> a * b * c) $ last $ take 1 pythagorean_triples