### ----------------------------------------------------
### -- List::MoreUtils
### -- Licenses: Artistic-2.0
### -- Authors: Elizabeth Mattijsen
### -- File: t/reduce_1.rakutest
### ----------------------------------------------------
use Test;
use List::MoreUtils <reduce_1>;

plan 1;

{
    my @values = 2, 4, 6, 5, 3;
    my $product = reduce_1 -> $a, $b { $a * $b }, @values;
    is $product, 720, "the product";
}

# vim: expandtab shiftwidth=4


