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