Programming-Idioms

Edit summary for version 28 by daxim:
New Perl implementation by user [daxim]

↷

2019-09-26, 16:39:11

2019-09-27, 08:08:26

Idiom #74 Compute GCD

Compute the greatest common divisor x of big integers a and b. Use an integer type able to handle huge numbers.

Compute the greatest common divisor x of big integers a and b. Use an integer type able to handle huge numbers.

use bigint;

sub gcd {
    my ($A, $B) = @_;
    return 0 == $B
        ? $A
        : gcd($B, $A % $B);
}

http://p3rl.org/bigint

Next change ↷