Sexy primes: Difference between revisions
Content added Content deleted
Line 711: | Line 711: | ||
groups :: Int -> Result -> Result |
groups :: Int -> Result -> Result |
||
groups |
groups n r@(Result p t q qn u) |
||
| isPrime ( |
| isPrime (n-24) && isPrime (n-18) && isPrime (n-12) && isPrime (n-6) = Result asPair asTriplet asQuad asQuin u |
||
| isPrime ( |
| isPrime (n-18) && isPrime (n-12) && isPrime (n-6) = Result asPair asTriplet asQuad qn u |
||
| isPrime ( |
| isPrime (n-12) && isPrime (n-6) = Result asPair asTriplet q qn u |
||
| isPrime ( |
| isPrime (n-6) = Result asPair t q qn u |
||
| (not $ isPrime ( |
| (not $ isPrime (n+6)) && (not $ isPrime (n-6)) = Result p t q qn (n : u) |
||
| otherwise = r |
| otherwise = r |
||
where asPair = ( |
where asPair = (n-6, n) : p |
||
asTriplet = ( |
asTriplet = (n-12, n-6, n) : t |
||
asQuad = ( |
asQuad = (n-18, n-12, n-6, n) : q |
||
asQuin = ( |
asQuin = (n-24, n-18, n-12, n-6, n) : qn |
||
main :: IO () |
main :: IO () |