Narcissistic decimal number: Difference between revisions

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

{{output?}}

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