Algoritmo euclidiano simples de máximo denominador comum em Perl.

• Download gcd-001.pl
• Enviar nova versã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";

check_mem.pl - Plugin Nagios para checar consumo de RAM

Fatorial

Saiba quanto de energia seu PC gasta aproximadamente por mês

Calculadora

Programa que separa os dígitos de um inteiro

Nenhum comentário foi encontrado.