Pisano period: Difference between revisions

Content added Content deleted
(Add Factor)
m (→‎{{header|Sidef}}: minor code simplification)
Line 425: Line 425:
var (a, b, n) = (0, 1, p**k)
var (a, b, n) = (0, 1, p**k)


for k in (1..Inf) {
1..Inf -> first_by {
(a, b) = (b, (a+b) % n)
(a, b) = (b, (a+b) % n)
(a == 0) && (b == 1)

if ([a,b] == [0,1]) {
return k
}
}
}
}
}