Pisano period: Difference between revisions

Line 385:
-- Fermat primality test
probablyPrime :: Integral a => a -> Bool
probablyPrime p = if p < 2 || even 2p then 2 == p else 1 == powMod p 2 (p-1)
 
primes :: Integral a => [a]
678

edits