These functions determine the greatest common factor or least common multiple of a set of numbers. gcf() and lcm() take two numbers as arguments, and multigcf() and multilcm() will take any amount.
EDIT: fixed a bug in multigcf().
sub gcf { my ($x, $y) = @_; ($x, $y) = ($y, $x % $y) while $y; return $x; } sub lcm { return($_[0] * $_[1] / gcf($_[0], $_[1])); } sub multigcf { my $x = shift; $x = gcf($x, shift) while @_; return $x; } sub multilcm { my $x = shift; $x = lcm($x, shift) while @_; return $x; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: greatest common factor
by zeno (Friar) on Feb 07, 2001 at 16:16 UTC | |
by Anonymous Monk on Mar 17, 2017 at 06:23 UTC | |
Re: greatest common factor
by TheAmigo (Initiate) on Apr 16, 2015 at 19:51 UTC | |
Re: greatest common factor
by Anonymous Monk on Jun 12, 2014 at 08:03 UTC |
Back to
Cool Uses for Perl