Cálculo do MDC em Perl
Publicado por Perfil removido (última atualização em 24/02/2015)
[ Hits: 4.426 ]
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
Calculando a média entre dois valores
Usando comandos shell com Perl
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta