Cálculo do MDC em Perl
Publicado por Perfil removido (última atualização em 24/02/2015)
[ Hits: 4.588 ]
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";
Inserindo o nome de aluno e calculando média de suas notas
Programa que separa os dígitos de um inteiro
Crivo de Eratóstenes Simples em Perl
Nenhum coment�rio foi encontrado.
Máquina perereca - até onde é possível o uso de Linux?
Mitigação - O que é e quando é "seguro" desabilitar
Atualizar Debian Online de uma Versão para outra
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Site com diversos emojis para seus códigos
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Debian 11 Bullseye não liga normalmente (13)
Problemas com ativação do Gutta e download de navegador. (4)