Zeckendorf number representation: Difference between revisions
m
→{{header|Mathematica}}
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 2,644:
20 | 101010</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>zeckendorf[0] = 0;
zeckendorf[n_Integer] :=
Line 2,652:
Range[2, Ceiling@Log[GoldenRatio, n Sqrt@5]], # <= n &];
zeckendorf /@ Range[0, 20]</lang>
{{Out}}
<pre>{0, 1, 10, 100, 101, 1000, 1001, 1010, 10000, 10001, 10010, 10100,
| |||