martes, 4 de agosto de 2009

1er post...

Bueno la gente que me conoce sabe que no seria mi primer post si no empezaria por este tema:
Numeros primos:
Este es un pequeño script que busca, estos numeros tan caracteristicos, esta hecho en perl (va a haber muchas cosas hechas en perl en este bolg)

perl -e'$q=2;$i=2;until(2==3){$i++;if($i%2==0){next}$p=$i-1;$a= 3;for($a;$a<$i;$a++){if ($a==$p){$q++;print"$i PRIMO - $q\n";last}elsif($a%2==0){next}elsif($i%$a==0){last}}}'

Saludos

No hay comentarios:

Publicar un comentario