Número e, Google y paenza...
jueves, marzo 27, 2008
Hace un tiempo estaba leyendo los libros de Paenza[0], y el el segundo libro cuenta que una vez estaba en Boston (en agosto del 2004) y vio una publicidad en un cartel muy grande que decía:
(primer primo de 10 dígitos consecutivos del desarrollo de e).com
Y no decía nada mas la publicidad...
Yo lo que hice fue un pequeño programa para buscar el primer primo de 10 digitos y lo copio abajo. Esta escrito en C.
El archivo "numero_e_primer_millon.txt" lo tenes que crear copiando el primer millónde dígitos que lo podes bajar de la web [1].
#include <stdio.h>
#include <stdlib.h>
int main(){
FILE *fichero;
char *reg = (char*)malloc (11);
unsigned long long b, i;
int aux = 2;
fichero = fopen("numero_e_primer_millon.txt", "r");
fseek(fichero, aux, SEEK_SET);
while (!feof(fichero)){
fseek(fichero, aux, SEEK_SET);
fread(reg, 10, 1, fichero);
reg[10] = 0;
b = strtoull(®[0],0,10);
for (i=2; b%i != 0; i++);
if (i == b){
printf("\nNumero: %llu\n", b);
printf("Posicion: %d\n", aux-1);
return;
}
aux++;
}
free (reg);
fclose(fichero);
return 0;
}
Referencias:
[0] http://mate.dm.uba.ar/~cepaenza/libro/LIBRO_PAENZA.htm
[1] http://antwrp.gsfc.nasa.gov/htmltest/gifcity/e.1mil
(primer primo de 10 dígitos consecutivos del desarrollo de e).com
Y no decía nada mas la publicidad...
Yo lo que hice fue un pequeño programa para buscar el primer primo de 10 digitos y lo copio abajo. Esta escrito en C.
El archivo "numero_e_primer_millon.txt" lo tenes que crear copiando el primer millónde dígitos que lo podes bajar de la web [1].
#include <stdio.h>
#include <stdlib.h>
int main(){
FILE *fichero;
char *reg = (char*)malloc (11);
unsigned long long b, i;
int aux = 2;
fichero = fopen("numero_e_primer_millon.txt", "r");
fseek(fichero, aux, SEEK_SET);
while (!feof(fichero)){
fseek(fichero, aux, SEEK_SET);
fread(reg, 10, 1, fichero);
reg[10] = 0;
b = strtoull(®[0],0,10);
for (i=2; b%i != 0; i++);
if (i == b){
printf("\nNumero: %llu\n", b);
printf("Posicion: %d\n", aux-1);
return;
}
aux++;
}
free (reg);
fclose(fichero);
return 0;
}
Referencias:
[0] http://mate.dm.uba.ar/~cepaenza/libro/LIBRO_PAENZA.htm
[1] http://antwrp.gsfc.nasa.gov/htmltest/gifcity/e.1mil
posted by carpediem at 11:45 AM
0 comments
