Zeckendorf number representation: Difference between revisions
→{{header|Quackery}}: now works with any non-negative integer, not just task requirement
(→{{header|Quackery}}: removed the off-task code) |
(→{{header|Quackery}}: now works with any non-negative integer, not just task requirement) |
||
Line 3,618:
=={{header|Quackery}}==
<lang Quackery>
over 1 peek +▼
rot 2dup < while▼
swap join again ]▼
2drop ] is obif ( n --> [ )▼
[ 0 swap ' [ 2 1 ]
[ 2dup 0 peek < iff
▲ + swap join again ]
[ rot 1 << unrot
else
dip
[ 1 | ] ] ]
▲ fibnums witheach
▲ [ -
▲ dip [ 1 | ] ]
▲ else drop ]
▲ base release ] is binecho ( n --> )
▲ [ i^ dup
▲ dup 10 < if sp
{{Out}}
<pre>
1 1
2 10
3 100
Line 3,669 ⟶ 3,665:
18 101000
19 101001
20 101010
</pre>
=={{header|R}}==
|