Cálculo do MDC em Perl

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

[ Hits: 4.071 ]

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

imprime numeros de forma crescente e decrescente [FOR]

Programa que separa os dígitos de um inteiro

triangulo

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

Calcula equação de segundo grau completa


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário