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.594 ]
... 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";
Inserindo o nome de aluno e calculando média de suas notas
"Codificação" de texto em Perl
Calculando a média entre dois valores
Nenhum comentário foi encontrado.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Instalando TeamViewer no Debian 12
Conheça o Octopi, outro frontend para o Pacman com acesso ao AUR (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
O que é isso no meu navegador? [RESOLVIDO] (5)
Eu estou com problemas para usar o QBASIC no Dosbox X (2)
Ubuntu simplesmente morreu (8)
Como colocar uma assinatura digital em um código compilado ! (2)