Cálculo do MDC em Perl
Publicado por Perfil removido (última atualização em 24/02/2015)
[ Hits: 4.593 ]
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";
Saiba quanto de energia seu PC gasta aproximadamente por mês
"Codificação" de texto em Perl
Programa que separa os dígitos de um inteiro
Nenhum coment�rio foi encontrado.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Instalando Google Chrome no Debian 13
Alguém pode me recomendar um editor de textos? (1)
meus dois pen drives não são mais reconhecidos pelo meu PC apos tentar... (1)