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}}== |