RosettaCodeData/Task/Catamorphism/Perl-6/catamorphism-2.pl6
2018-06-22 20:57:24 +00:00

7 lines
204 B
Raku

my @list = 1..10;
say reduce &infix:<+>, @list;
say reduce &infix:<*>, @list;
say reduce &infix:<~>, @list;
say reduce &infix:<min>, @list;
say reduce &infix:<max>, @list;
say reduce &infix:<lcm>, @list;