Cálculo do MDC em Perl
Publicado por Perfil removido (última atualização em 24/02/2015)
[ Hits: 4.577 ]
Algoritmo euclidiano simples de máximo denominador comum em Perl.
#!/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";
Cálculo do MDC em Perl para quantidade ilimitada de parâmetros
Crivo de Eratóstenes Simples em Perl
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Git config não aplica configurações
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Não consigo usar o Bluetooth (2)
Comprar um servidor nesse site é confiável? (5)
Exibir detalhes de vídeo no Caja (0)
Criar um servidor de arquivos local com o ubuntu server e o samba? (2)