Select Code to Download

    @foobar = reduce {[@^a ^+ @^b]} @foo, @bar, @baz, @etc;

    {[@^a ^+ @^b]}

    sub (@a, @b) { return [@a ^+ @b] }

    # sum of maximal values...
    $maxsum = reduce { $^a + max(@^b) } 0, @foo, @bar, @etc;

    # grep out hash entries whose key *or* value is 'moo'...
    %cow = map { any($^key,$^val) eq 'moo' ?? $^key => $^val :: () } %
+animals;

    sub ($key, $val) { ... }