Crivo de Eratóstenes Simples em Perl
Publicado por Perfil removido (última atualização em 02/04/2012)
[ Hits: 4.489 ]
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";
Lendo o conteúdo de uma página da Internet
Escrevendo varias linhas em um arquivo qualquer
Aprendendo a fazer equações em Perl
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)
Instalação não está resolvendo as dependencias (2)
Captação de áudio no zorin linux começa a diminuir com o tempo (5)
Alternativas ao Multilogin para gerenciamento de múltiplas contas/prof... (0)









