Pisano period: Difference between revisions
m
→{{header|Haskell}}: Perhaps a few more (if-then-else) -> guards + pattern matching ? (OP may prefer to revert)
m (→{{header|Haskell}}: Perhaps a few more (if-then-else) -> guards + pattern matching ? (OP may prefer to revert)) |
|||
Line 396:
| 1 == abs m = 0
powMod m p k
| 1 == abs p = mod v m
where
| otherwise = p
powMod m p k = go p k
where
Line 405 ⟶ 406:
go _ 0 = 1
go u 1 = mod u m
go u i
w =
-- Fermat primality test
Line 415 ⟶ 416:
:: Integral a
=> a -> Bool
probablyPrime p
| otherwise
primes
Line 457:
factor n = go n primes
where
fun x d c
| otherwise
go 1 _ = []
go _ [] = []
| |||