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.774 ]
... 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";
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Máquinas Virtuais com IP estático acessando Internet no Virtualbox
Erro no pip install linux (19)
Liberar acesso a DVR externo (6)
Eu tenho dois links de internet na empresa e em apenas um deles a VPN ... (1)
Queria saber se existe algum linux com ahci como driver ou já integrad... (3)