Crivo de Eratóstenes Simples em Perl

Publicado por Perfil removido (última atualização em 02/04/2012)

[ Hits: 4.148 ]

Download sieve001.pl




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

  



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";

Scripts recomendados

data do servidor em perl

Renomeando arquivos de forma padronizada

Cálculo de área de uma figura geométrica

Equação do 2°

localtime.pl


  

Comentários


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts