Pisano period: Difference between revisions
Content added Content deleted
| Line 385: | Line 385: | ||
-- Fermat primality test |
-- Fermat primality test |
||
probablyPrime :: Integral a => a -> Bool |
probablyPrime :: Integral a => a -> Bool |
||
probablyPrime p = if p < |
probablyPrime p = if p < 2 || even 2 then 2 == p else 1 == powMod p 2 (p-1) |
||
primes :: Integral a => [a] |
primes :: Integral a => [a] |
||