Eban numbers: Difference between revisions

Content deleted Content added

Inline

@@ Line 61: / Line 61: @@
 }
-my $k = @eban.first( * > 100, :k );
+put my @k = @eban.grep: * <= 100;
+say "Up to 100: ", +@k;
-put @eban[^$k];
-say "Up to 100: ", +@eban[^$k];
 say '=' x 40;
-my $b = @eban.first( * >= 1000, :k );
+put my @j = @eban.grep: 1000 <= * <= 4000;
+say "From 1,000 to 4,000: ", +@j;
-my $f = @eban.first( * >= 4000, :k );
-put @eban[$b .. $f];
-say "From 1,000 to 4,000: ", +@eban[$b .. $f];
 say '=' x 40;