Fibonacci n-step number sequences: Difference between revisions

m
No edit summary
Line 765:
 
Works in both languages:
<lang unicon>procedure main(A)
every writes("F2:\t"|right((fnsGen(1,1))\1014,5)||" " | "\n")
every writes("F3:\t"|right((fnsGen(1,1,2))\1014,5)||" " | "\n")
every writes("F4:\t"|right((fnsGen(1,1,2,4))\1014,5)||" " | "\n")
every writes("Lucas:\t"|right((fnsGen(2,1))\1014,5)||" " | "\n")
every writes("F?:\t"|right((fnsGen!A)\14,5) | "\n")
end
 
Line 782 ⟶ 783:
Output:
<pre>
->fns 3 1 4 1 5
F2: 1 1 2 3 5 8 13 21 34 55 5589 144 233 377
F3: 1 1 2 4 7 13 24 44 81 149 149 274 504 927 1705
F4: 1 1 2 4 8 15 29 56 108 208 208 401 773 1490 2872
Lucas: 2 1 3 4 7 11 18 29 47 76 76123 199 322 521
F?: 3 1 4 1 5 14 25 49 94 187 369 724 1423 2797
->
</pre>