Cálculo do MDC em Perl

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

[ Hits: 4.593 ]

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

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

"Codificação" de texto em Perl

Anagrama usando Perl

Programa que separa os dígitos de um inteiro

Verificar se usuário é root


  

Comentários

Nenhum coment�rio foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts