Anonymous user
Narcissistic decimal number: Difference between revisions
→{{header|Perl}}: Added simple Perl 5 implementation
No edit summary |
(→{{header|Perl}}: Added simple Perl 5 implementation) |
||
Line 472:
{{out}}
<pre>0 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315 </pre>
=={{header|Perl}}==
Simple version using a naive predicate. About 15 seconds.
<lang perl>sub is_narcissistic {
my $n = shift;
my($k,$sum) = (length($n),0);
$sum += $_**$k for split(//,$n);
$n == $sum;
}
my $i = 0;
for (1..25) {
$i++ while !is_narcissistic($i);
say $i++;
}</lang>
=={{header|Perl 6}}==
| |||