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.852 ]
... 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";
Usando comandos shell com Perl
Calculando a média entre dois valores
imprime numeros de forma crescente e decrescente [FOR]
Calcula equação de segundo grau completa
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Alguém já testou plataformas de investimento voltadas para a América d... (0)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (6)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (3)