Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/5/84; site mcc-db.UUCP
Path: utzoo!linus!decvax!genrad!mit-eddie!think!harvard!seismo!ut-sally!mcc-db!greg
From: greg@mcc-db.UUCP (Greg)
Newsgroups: net.math
Subject: More bragging about excessive accuracy.
Message-ID: <291@mcc-db.UUCP>
Date: Sun, 4-Aug-85 12:22:42 EDT
Article-I.D.: mcc-db.291
Posted: Sun Aug  4 12:22:42 1985
Date-Received: Wed, 7-Aug-85 02:12:22 EDT
Distribution: net
Organization: MCC
Lines: 33

e to 40,000 places in an hour and a half on a Vax 750:
(Not entirely optimized, either)

#define NUM1 11100
#define NUM2 10000
#define BASE 10000
#include <stdio.h>

main()
{
    register int j,c;
    int i,a[NUM1];
    printf("2.");
    for(i=2;i<NUM1;i++)a[i]=1;
    for(i=0;i<NUM2;i++)
    {
	c=0;
	for(j=NUM1-1;j>1;j--)
	{
	    a[j]=(c=a[j]*BASE+c)%j;
	    c=c/j;
	}
	putchar(c/1000 + 48);
	putchar((c/100)%10 + 48);
	putchar((c/10)%10 + 48);
	putchar(c%10 + 48);
	if(!(i%18))
	    printf("\n");
     }
     printf("\n");
}
-- 
gregregreg