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.870 ]
... 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";
Assistente de instalação por apt!
Programa que separa os dígitos de um inteiro
Calculando a média entre dois valores
Aprendendo a fazer equações em Perl
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Olha que Conky "bunitinhu" pra usar no seu sistema
Git config não aplica configurações
O que você quer para sua vida ao usar o Linux?
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
warsaw parou de funcionar após atualização do sistema (solução) (10)
Aprendendo mais sobre Linux com livro (4)
eu estou tendo um problema no ChimeraOS e no Bazzite (0)
samba4 versao 4.22.3 usuario nao consegue trocar a senha (4)