The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

LNATION / Data-LnArray-0.06 / t / 28-reduce.t 

            

              
1
2
3
4
5
6
7
8
9
10
11

              
use Test::More;
use Data::LnArray;
my $array = Data::LnArray->new(1, 2, 3, 4);
my $reduce = $array->reduce(sub { $_[0] + $_[1] });
is($reduce, 10);
done_testing;