Pisano period: Difference between revisions
Add Factor
(Added Sidef) |
(Add Factor) |
||
Line 26:
* [[Least common multiple]]
=={{header|Factor}}==
{{works with|Factor|0.99 2020-01-23}}
<lang factor>USING: formatting fry grouping io kernel math math.functions
math.primes math.primes.factors math.ranges sequences ;
: pisano-period ( m -- n )
[ 0 1 ] dip [ sq <iota> ] [ ] bi
'[ drop swap over + _ mod 2dup [ zero? ] [ 1 = ] bi* and ]
find 3nip [ 1 + ] [ 1 ] if* ;
: pisano-prime ( p k -- n )
over prime? [ "p must be prime." throw ] unless
^ pisano-period ;
: pisano ( m -- n )
group-factors [ first2 pisano-prime ] [ lcm ] map-reduce ;
: show-pisano ( upto m -- )
[ primes-upto ] dip
[ 2dup pisano-prime "%d %d pisano-prime = %d\n" printf ]
curry each nl ;
15 2 show-pisano
180 1 show-pisano
"n pisano for integers 'n' from 2 to 180:" print
2 180 [a,b] [ pisano ] map 15 group
[ [ "%3d " printf ] each nl ] each</lang>
{{out}}
<pre style="height:45ex">
2 2 pisano-prime = 6
3 2 pisano-prime = 24
5 2 pisano-prime = 100
7 2 pisano-prime = 112
11 2 pisano-prime = 110
13 2 pisano-prime = 364
2 1 pisano-prime = 3
3 1 pisano-prime = 8
5 1 pisano-prime = 20
7 1 pisano-prime = 16
11 1 pisano-prime = 10
13 1 pisano-prime = 28
17 1 pisano-prime = 36
19 1 pisano-prime = 18
23 1 pisano-prime = 48
29 1 pisano-prime = 14
31 1 pisano-prime = 30
37 1 pisano-prime = 76
41 1 pisano-prime = 40
43 1 pisano-prime = 88
47 1 pisano-prime = 32
53 1 pisano-prime = 108
59 1 pisano-prime = 58
61 1 pisano-prime = 60
67 1 pisano-prime = 136
71 1 pisano-prime = 70
73 1 pisano-prime = 148
79 1 pisano-prime = 78
83 1 pisano-prime = 168
89 1 pisano-prime = 44
97 1 pisano-prime = 196
101 1 pisano-prime = 50
103 1 pisano-prime = 208
107 1 pisano-prime = 72
109 1 pisano-prime = 108
113 1 pisano-prime = 76
127 1 pisano-prime = 256
131 1 pisano-prime = 130
137 1 pisano-prime = 276
139 1 pisano-prime = 46
149 1 pisano-prime = 148
151 1 pisano-prime = 50
157 1 pisano-prime = 316
163 1 pisano-prime = 328
167 1 pisano-prime = 336
173 1 pisano-prime = 348
179 1 pisano-prime = 178
n pisano for integers 'n' from 2 to 180:
3 8 6 20 24 16 12 24 60 10 24 28 48 40 24
36 24 18 60 16 30 48 24 100 84 72 48 14 120 30
48 40 36 80 24 76 18 56 60 40 48 88 30 120 48
32 24 112 300 72 84 108 72 20 48 72 42 58 120 60
30 48 96 140 120 136 36 48 240 70 24 148 228 200 18
80 168 78 120 216 120 168 48 180 264 56 60 44 120 112
48 120 96 180 48 196 336 120 300 50 72 208 84 80 108
72 72 108 60 152 48 76 72 240 42 168 174 144 120 110
60 40 30 500 48 256 192 88 420 130 120 144 408 360 36
276 48 46 240 32 210 140 24 140 444 112 228 148 600 50
36 72 240 60 168 316 78 216 240 48 216 328 120 40 168
336 48 364 180 72 264 348 168 400 120 232 132 178 120
</pre>
=={{header|Go}}==
| |||