Select Code to Download

    package ToolBox;

...
            map $f->($_), @$args, @_;
        }
    }

    use ToolBox;
    use Data::Dumper;
...
        my @d = map Dumper($_), @_;
        print "@d$/";
    }

    # some simple binary operators

...

    say sum(1..10);       # 55
    say product(1..10);   # 3628800

    *dot_product = compose( \&sum, zip_with_c( \&product ));
    say dot_product( [1,1,1], [1,2,3] ); # 6

    *combos = foldr_c( \&outer_prod, [[]] );

...

    say combos( ['a','b'], [1,2,3] );
    # [['a',1],['a',2],['a',3],['b',1],['b',2],['b',3]]

    *powerset = pipeline(
        map_c { [ [$_], [] ] },              # step 1
...
    say powerset(qw( a b c ));
    # ['a','b','c'] ['a','b'] ['a','c'] ['a']
    # ['b','c'] ['b'] ['c'] []