Cálculo do MDC em Perl

Descrição

Esconder código-fonte

#!/usr/bin/perl

use strict;
use warnings;

sub mdc {

   my ($n1, $n2) = (shift, shift);

   return ($n1|$n2) if ($n1==0 || $n2==0);
   return 1 if ($n1==1 || $n2==1);
   return $n1 if ($n1==$n2);

   my $tmp = 0;

   while ($n2>0) {
      $tmp = $n2;
      $n2 = $n1 % $n2;
      $n1 = $tmp;
   }

   return $tmp;

}


my $x = 1024;
my $y = 768;
my $z = mdc($x,$y);

print "$z\n";