Cálculo do MDC em Perl

Publicado por Perfil removido (última atualização em 24/02/2015)

[ Hits: 4.074 ]

Download gcd-001.pl




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

  



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";

Scripts recomendados

Calcula equação de segundo grau completa

Equação do 2°

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

"Codificação" de texto em Perl

Lista de números aleatórios não-repetidos de um intervalo em Perl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário