RosettaCodeData/Task/Least-common-multiple/Perl-6/least-common-multiple.pl6

4 lines
100 B
Raku
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
say 3 lcm 4; # infix
say [lcm] 1..20; # reduction
say ~(1..10 Xlcm 1..10) # cross