Cousin primes: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: Added a Haskell version) |
|||
| Line 865: | Line 865: | ||
cousinPrimes = concat $ (zipWith go <*> fmap (+ 4)) primes |
cousinPrimes = concat $ (zipWith go <*> fmap (+ 4)) primes |
||
where |
where |
||
go a b |
go a b = [(a, b) | isPrime b] |
||
| isPrime b = [(a, b)] |
|||
| otherwise = [] |
|||