Crivo de Eratóstenes Simples em Perl

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

[ Hits: 3.915 ]

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

Calc.pl

Calculadora de IMC em Perl

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Queimando CDs on-the-fly

Usando comandos shell com Perl


  

Comentários


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts