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