Zeckendorf number representation: Difference between revisions
→{{header|Mathematica}}/{{header|Wolfram Language}}
m (→{{header|QuickBASIC}}: Constants TRUE% and FALSE% for better readability.) |
Paulcabbott (talk | contribs) |
||
Line 3,350:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<syntaxhighlight lang="mathematica">
ZeckendorfRepresentation[0] = 0;
ZeckendorfRepresentation[n_Integer?Positive] :=
FromDigits@NumberDecompose[n, Reverse@Fibonacci@Range[2,1000]];
▲zeckendorf /@ Range[0, 20]</syntaxhighlight>
{{Out}}
<pre>{0, 1, 10, 100, 101, 1000, 1001, 1010, 10000, 10001, 10010, 10100,
| |||