Left factorials: Difference between revisions
m
→{{header|Mathematica}}
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 2,146:
2565, 5733, 9128, 12670, 16322, 20062, 23875, 27749, 31678, 35656</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>left[n_] := left[n] = Sum[k!, {k, 0, n - 1}]
Print["left factorials 0 through 10:"]
Line 2,190:
27749
31678
35656</pre>
=={{header|Nim}}==
|