Crivo de Eratóstenes Simples em Perl
Publicado por Perfil removido (última atualização em 02/04/2012)
[ Hits: 4.405 ]
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";
Escrevendo varias linhas em um arquivo qualquer
Usando comandos shell com Perl
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
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
Teclado n~ao escreve abnt2 (9)
Já estou acreditando que não há limites... (3)
Linux mint só reproduz vídeos em navegadores se estiverem mutados [RES... (2)