Generando números primos

Por Saiyine el 2005-09-18 23:28:00 - Secciones: PERL - Enlace permanente: 558

Para un experimento, necesitaba una lista bastante larga de números primos, lo que me indujo a hacer este programita en perl.

El script es realmente simple, y practicamente no usé ningún truco para acelerar la generación de primos salvo el empezar con una lista de ocho o nueve precalculados.

Los números generados son guardados en un txt que es reaprovechado la siguiente vez que se ejecuta el programa, que por cierto acepta como parametro cuantos primos queremos calcular.

Y sin más preambulos, el código:

#!/usr/bin/perl

if (-e "primos.txt")
{
  open (f1,"primos.txt");
  @leido=<f1>;
  close(f1);
  foreach $l ( @leido )
  {
    if ($l > 0)
    {
      push (@primos, $l*1);
    }
  }
} else
{
  @primos = (2,3,5,7,11,13,17,19);
}

$a = pop (@primos);
push (@primos, $a);

if ( $ARGV[0]==0 )
{
  $tope=1;
} else
{
  $tope=$ARGV[0];
}

$cuenta=0;
do
{
  $primo = "Si";
  foreach $p (@primos)
  {
    if ( $a % $p == 0 ) 
    {
      $primo = "No";
      break;
    }
  }
  if ( $primo eq "Si" )
  {
    $cuenta++;
    print "[ $a ] $cuenta\n";
    push (@primos, $a);
  }
  $a=$a+1;
}
while ($cuenta<$tope);

open (f1,">primos.txt");
foreach $i ( @primos )
{
  print f1 "$i\n";
}
close(f1);

Otras entradas de la web que podrian interesarte:

(830) may 28 PERL LINUX ENGLISH Installing CPAN Perl modules made easy
(829) may 28 PERL LINUX Instalar modulos CPAN de Perl
(908) feb 22 JAVA Descubrir los numeros primos existentes entre dos enteros dados
(902) ene 25 PERL DBI PROGRAMACION ENGLISH MYSQL Reading a random row from a MySQL table with Perl DBI
(392) ago 07 PERL Frase al azar

982

Anonimo (2007-02-23 11:58:57)

primos

1063

yayis (2007-04-09 12:20:44)

escribir uin algoritmo que dados dos numeros enteros a y b talque a<=b ,indicar que todos los numeros comprendidos entre a y b pueden expresarsen como suma de sos numeros primos ejem:
a=5 yb=8 verdadero dado que 5=2+3 y 8 =3+5
afradesco a la persona queme allude a realizarlo

3329