Crivo de Eratóstenes Simples em Perl

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

[ Hits: 4.402 ]

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

Lista de números aleatórios não-repetidos de um intervalo em Perl

Calculando a média entre dois valores

Inserindo o nome de aluno e calculando média de suas notas

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Calculadora de IMC em Perl


  

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