From d09ec147fa223dcf760eaa592bc0573e678ea412 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Wed, 1 Apr 2015 12:05:34 +0800
Subject: +39 +40

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

(limited to 'H40.hs')

diff --git a/H40.hs b/H40.hs
new file mode 100644
index 0000000..448d372
--- /dev/null
+++ b/H40.hs
@@ -0,0 +1,9 @@
+import H35
+
+goldbach :: Integer -> (Integer, Integer)
+goldbach x = sepToSum x primes $ reverse $ takeWhile (<x) primes
+    where 
+        sepToSum n hhs@(h:hs) tts@(t:ts)
+            | h+t > n = sepToSum n hhs ts
+            | h+t < n = sepToSum n hs tts
+            | otherwise = (h,t)
-- 
cgit v1.2.3-70-g09d2