From b47befab3696c40c710ee80f366fa376ec967b30 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Wed, 1 Apr 2015 17:41:53 +0800
Subject: +40 +41

---
 H40.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'H40.hs')

diff --git a/H40.hs b/H40.hs
index 448d372..4a31727 100644
--- a/H40.hs
+++ b/H40.hs
@@ -1,4 +1,9 @@
+module H40
+(   goldbach
+) where
+
 import H35
+import H31
 
 goldbach :: Integer -> (Integer, Integer)
 goldbach x = sepToSum x primes $ reverse $ takeWhile (<x) primes
@@ -7,3 +12,5 @@ goldbach x = sepToSum x primes $ reverse $ takeWhile (<x) primes
             | h+t > n = sepToSum n hhs ts
             | h+t < n = sepToSum n hs tts
             | otherwise = (h,t)
+
+goldbach' n = head [(x,y) | x <- (takeWhile (<n) primes),let y = n - x, isPrimeT y]
-- 
cgit v1.2.3-70-g09d2