![]() |
|
laziness, impatience, and hubris | |
PerlMonks |
greatest common factorby MrNobo1024 (Hermit) |
on Feb 07, 2001 at 10:42 UTC ( #56906=snippet: print w/replies, xml ) | Need Help?? |
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; }
|
|