Crivo de Eratóstenes Simples em Perl

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

removido

Por Perfil removido em 02/04/2012

Hits: 4.668 Categoria: Perl Subcategoria: Introdução

Descrição

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

Download sieve001.pl Enviar nova versão

Esconder código-fonte

#!/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";