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
main()
{
register int j,c;
int i,a[NUM1];
printf("2.");
for(i=2;i1;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