Cálculo do MDC em Perl
Publicado por Perfil removido (última atualização em 24/02/2015)
[ Hits: 4.352 ]
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";
"Codificação" de texto em Perl
Aprendendo a fazer equações em Perl
Programa que separa os dígitos de um inteiro
Crivo de Eratóstenes Simples em Perl
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
iso de sistema 32 bit em atividade (24)
redirecionando saida de comando touch para o AWK[AJUDA] (11)
filtrar só as pastas onde tem arquivo (1)