Eban numbers: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) →{{header|Perl 6}}: Add a Perl 6 example |
Thundergnat (talk | contribs) m →{{header|Perl 6}}: slightly less verbose |
||
Line 61: | Line 61: | ||
} |
} |
||
my |
put my @k = @eban.grep: * <= 100; |
||
⚫ | |||
put @eban[^$k]; |
|||
⚫ | |||
say '=' x 40; |
say '=' x 40; |
||
my |
put my @j = @eban.grep: 1000 <= * <= 4000; |
||
⚫ | |||
my $f = @eban.first( * >= 4000, :k ); |
|||
put @eban[$b .. $f]; |
|||
⚫ | |||
say '=' x 40; |
say '=' x 40; |
||