RosettaCodeData/Task/Least-common-multiple/Perl-6/least-common-multiple.pl6
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

3 lines
100 B
Raku

say 3 lcm 4; # infix
say [lcm] 1..20; # reduction
say ~(1..10 Xlcm 1..10) # cross