sub filter($f, @arr) {
gather {
for @arr -> $e {
take $e if $f($e);
}
}
}
my @even = filter { $_ mod 2 == 0 }, 1..10;
@even ~~ (2, 4, 6, 8, 10) or die "Wrong array {@even}";
sub filter($f, @arr) {
gather {
for @arr -> $e {
take $e if $f($e);
}
}
}
my @even = filter { $_ mod 2 == 0 }, 1..10;
@even ~~ (2, 4, 6, 8, 10) or die "Wrong array {@even}";
Comments
0 B
|👍
/👎
0 B
|👍
/👎