Narcissistic decimal number: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,388: / Line 2,388: @@
 }
-constant narcissistic = 0, (1..*).map: -> $d {
+for (1..*) -> $d {
     my @t = 0..9 X** $d;
     my @table = @t X+ @t X+ @t;
-    sub is-narcissistic(\n) { n == [+] @table[kigits(n)] }
+    sub is-narcissistic(\n) { n == [+] @table[kigits(n)] };
+    state $l = 2;
-    gather take $_ if is-narcissistic($_) for 10**($d-1) ..^ 10**$d;
+    FIRST say "1\t0";
-}
+    say $l++, "\t", $_ if .&is-narcissistic for 10**($d-1) ..^ 10**$d;
+    last if $l > 25
-for narcissistic {
+};</lang>
-    say ++state $n, "\t", $_;
-    last if $n == 25;
-}</lang>
 {{out}}
 <pre>1	0