Narcissistic decimal number: Difference between revisions

Content added Content deleted

Inline

@@ Line 8: / Line 8: @@
 =={{header|Perl 6}}==
 Here is a straightforward, naive implementation.  It works but takes ages.
-<lang perl6>sub is-narcissic(Int $n) { $n == [+] $n.comb »**» $n.chars }
+<lang perl6>sub is-narcissistic(Int $n) { $n == [+] $n.comb »**» $n.chars }
 for 0 .. * {
-    if .&is-narcissic {
+    if .&is-narcissistic {
 	.say;
 	last if ++state$ >= 25;