Pierpont primes: Difference between revisions
Content added Content deleted
Line 971: | Line 971: | ||
let x = case k of First -> succ n |
let x = case k of First -> succ n |
||
Second -> pred n |
Second -> pred n |
||
guard (isPrime x) |
guard (isPrime x) >> [x] |
||
[x] |
|||
main :: IO () |
main :: IO () |