daily pastebin goal
18%
SHARE
TWEET

[Perl 6] gather/take demo.

cwchen Nov 28th, 2017 79 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sub filter($f, @arr) {
  2.     gather {
  3.         for @arr -> $e {
  4.             take $e if $f($e);
  5.         }
  6.     }
  7. }
  8.  
  9. my @even = filter { $_ mod 2 == 0 }, 1..10;
  10. @even ~~ (2, 4, 6, 8, 10) or die "Wrong array {@even}";
RAW Paste Data
Top