Leonardo numbers: Difference between revisions

Content added Content deleted
(Add Plain English)
(Added Quackery.)
Line 1,634: Line 1,634:
[0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610
[0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610
987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368]</pre>
987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368]</pre>

=={{header|Quackery}}==

<lang Quackery> [ 1 1 1 ] is leo ( --> n n n )

[ 0 1 0 ] is fibo ( --> n n n )

[ 2 1 0 ] is lucaso ( --> n n n )

[ temp put
rot times
[ tuck +
temp share + ]
temp release drop ] is nardo ( n n n n --> n )

say "Leonardo numbers:" cr
25 times [ i^ leo nardo echo sp ]
cr cr
say "Fibonacci numbers:" cr
25 times [ i^ fibo nardo echo sp ]
cr cr
say "Lucas numbers:" cr
25 times [ i^ lucaso nardo echo sp ]</lang>

{{out}}

<pre>Leonardo numbers:
1 1 3 5 9 15 25 41 67 109 177 287 465 753 1219 1973 3193 5167 8361 13529 21891 35421 57313 92735 150049

Fibonacci numbers:
0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368

Lucas numbers:
2 1 3 4 7 11 18 29 47 76 123 199 322 521 843 1364 2207 3571 5778 9349 15127 24476 39603 64079 103682
</pre>



=={{header|R}}==
=={{header|R}}==