Self-describing numbers: Difference between revisions
m
→{{header|Mathematica}}
(Replaced by a more efficient code.) |
|||
Line 1,620:
end</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>isSelfDescribing[n_Integer] := (RotateRight[DigitCount[n]] == PadRight[IntegerDigits[n], 10])</lang>
<pre>Select[Range[10^10 - 1], isSelfDescribing]
-> {1210,2020,21200,3211000,42101000,521001000,6210001000}</pre>
|