Narcissistic decimal number: Difference between revisions

The task is to generate and show here, the first 25 narcissistic numbers.

 

Here is a straightforward, naive implementation. Should work but takes ages.

<lang perl6>sub is-narcissic(Int $n) { $n == ([+] $n.comb)**$n.chars }

 

 

=={{header|Python}}==