Narcissistic decimal number: Difference between revisions

(→‎{{header|Perl 6}}: oops, misunderstood the task description)
Line 7:
 
=={{header|Perl 6}}==
{{output?}}
Here is a straightforward, naive implementation. Should work but takes ages.
<lang perl6>sub is-narcissic(Int $n) { $n == [+] $n.comb »**» $n.chars }
Anonymous user