Greedy algorithm for Egyptian fractions: Difference between revisions
Greedy algorithm for Egyptian fractions (view source)
Revision as of 18:54, 20 June 2021
, 2 years ago→{{header|Mathematica}}
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 1,919:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>frac[n_] /; IntegerQ[1/n] := frac[n] = {n};
frac[n_] :=
| |||