Pisano period: Difference between revisions
Content added Content deleted
Line 374: | Line 374: | ||
powMod :: Integral a => a -> a -> a -> a |
powMod :: Integral a => a -> a -> a -> a |
||
powMod _ _ k | k < 0 = error "negative power" |
|||
powMod m _ _ | 1 == abs m = 0 |
powMod m _ _ | 1 == abs m = 0 |
||
powMod m p k | 1 == abs p = if 1 == p || even k then mod 1 m else mod p m |
powMod m p k | 1 == abs p = if 1 == p || even k then mod 1 m else mod p m |