Own digits power sum: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}: link Pascal to Narcissistic_decimal_number
Drkameleon (talk | contribs) (added Arturo) |
m (→{{header|Mathematica}}/{{header|Wolfram Language}}: link Pascal to Narcissistic_decimal_number) |
||
Line 867:
</pre>
=={{header|Pascal}}==
[[Narcissistic_decimal_number#alternative|Narcissistic decimal number]]
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<syntaxhighlight lang="mathematica">cf = Compile[{{n, _Integer}}, Module[{digs, len},
|