Crivo de Eratóstenes Simples em Perl
Publicado por Perfil removido (última atualização em 02/04/2012)
[ Hits: 4.164 ]
Crivo simples. Valores devem ser alterados no código.
Obs[1]: "Redundâncias" {} ficam como curiosidade.
Obs[2]: Quem puder testar e fazer "benchmark" com valores elevados e sistemas mínimos, máquinas virtuais etc. eu agradeceria
#!/usr/bin/perl use strict; use warnings; my @primes=(2, 3); my ($i, $j, $k) = (5, 0, 0); do { $j = 0; $k=sqrt($i); do {} while ($primes[++$j]<$k and ($i%$primes[$j])); push (@primes, $i) if ($primes[$j]>$k); $i+=(($i%3==2)?2:4); } while ($i<1000000); foreach (@primes) { print "$_ "; } print "\n";
Inserindo o nome de aluno e calculando média de suas notas
Agora temos uma assistente virtual no fórum!!! (247)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
redirecionando saida de comando touch para o AWK[AJUDA] (4)
Microfone do meu headset não é recinhecido. Meu notebook é um Acer Asp... (1)
iso de sistema 32 bit em atividade (18)