Cálculo do MDC em Perl para quantidade ilimitada de parâmetros
Publicado por Perfil removido (última atualização em 09/04/2013)
[ Hits: 2.611 ]
... ou para quantos couberem num dado tipo lista do Perl.
Algoritmo euclidiano simples para cálculo de MDC. Recebe uma quantidade indefinida de números para o cálculo.
#!/usr/bin/perl use strict; use warnings; sub mdc { my @n3 = @_; return -1 unless (@n3); @n3 = sort {$b <=> $a} @n3; my ($n1, $n2, $tmp) = (0, 0, 0); $n2 = pop (@n3) while ($n2==0); return $n2 unless (@n3); while (@n3) { $n1 = pop (@n3); return 1 if ($n1==1 || $n2==1); next if ($n1==$n2); while ($n2>0) { $tmp = $n2; $n2 = $n1 % $n2; $n1 = $tmp; } $n2 = $n1; } return $tmp; } my @x = (20,15,0,65,125,25); my $z = mdc(@x); print "$z\n";
Lista de números aleatórios não-repetidos de um intervalo em Perl
Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl
Nenhum comentário foi encontrado.
Mamãe, quero descompactar e também compactar arquivos no terminal!
Deixando o Gnome bonitão em qualquer distribuição
Como ativar o módulo de cancelamento de ruído no Pipewire
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Fazendo 100% no DOOM clássico sem tutorial
DSDA DOOM no Linux Mint 21.3 Virginia
Papagaiando (enfeitando) o KDE com efeitos do KWiN Burn My Windows
Como centralizar o widget Gerenciador de Tarefas Apenas Com Ícones do Painel do KDE
bc e calculos de horas - Duração de tempo (9)
Dúvidas com pacotes descontinuados (11)
Kernel pede para ser reinstalado (31)
O que eu faço com o pen drive de 200mb? [RESOLVIDO] (16)
Como Instalar Programas no computador remoto com GLPI Inventory (2)