Revision as of 18:14, 3 March 2020 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Perl 6}}: Style tweak, harden against errors. Not necessary for this example but more generally useful) ← Older edit		Revision as of 22:17, 3 March 2020 (view source) Chunes (talk \| contribs) m (→‎{{header\|Factor}}: swap over -> tuck) Newer edit →
Line 34: : pisano-period ( m -- n ) [ 0 1 ] dip [ sq <iota> ] [ ] bi '[ drop ~~swap over~~tuck + _ mod 2dup [ zero? ] [ 1 = ] bi* and ] find 3nip [ 1 + ] [ 1 ] if* ;

Pisano period: Difference between revisions

Pisano period (view source)