Pisano period: Difference between revisions
m
→{{header|Haskell}}
mNo edit summary |
|||
Line 358:
see :: Show a => Int -> [a] -> String
see n = unlines.map unwords.bagOf n.map (T.unpack.T.
fibMod :: Integral a => a -> [a]
Line 419:
[3,8,20,16,10,28,36,18,48,14,30,76,40,88,32,108,58,60,136,70,148,78,168,44,196,50,208,72,108,76,256,130,276,46,148,50,316,328,336,348,178]
Pisano(m) for m from 1 to 180
1 3 8 6
24 36 24 18 60 16 30 48 24
30 48 40 36 80 24 76 18 56 60 40 48 88 30
48 32 24
60 30 48 96
18 80
112
108 72 72
110 60 40 30
36
50 36 72
168 336 48
map pisanoPeriod [1..180] == map pisano [1..180] = True
map pisanoPeriod [1..180] == map pisanoConjecture [1..180] = True</pre>
=={{header|Julia}}==
|