Own digits power sum: Difference between revisions
→{{header|D}}
(Created Nim solution.) |
|||
Line 467:
<pre>
Same as before.
</pre>
=={{header|D}}==
<syntaxhighlight lang="Delphi">
import std.stdio;
import std.conv;
import std.algorithm;
import std.range;
bool isOwnDigitsPowerSum(uint n)
{
auto nStr = n.text;
return nStr.map!(d => (d - '0') ^^ nStr.length).sum == n;
}
void main()
{
iota(10^^2, 10^^9).filter!isOwnDigitsPowerSum.writeln;
}
</syntaxhighlight>
{{out}}
<pre>
</pre>
Line 560 ⟶ 582:
Elapsed Time: 3.058 Sec.
</pre>
=={{header|F_Sharp|F#}}==
| |||