Narcissistic decimal number: Difference between revisions

=={{header|Perl 6}}==

Here is a straightforward, naive implementation. It works but takes ages.

 

for 0 .. * {

.say;

last if ++state$ >= 25;