Re: [FWP] algorithm to calculate pi

[Andy Bach <root@wiwb.uscourts.gov>]

On Sun, 25 Jun 2000, Michael Assels wrote:
> I can't promise 280 digits, but here's something shorter:
> 
> #!/usr/bin/perl -l
> for(0..9999){$i=$_*8;$p+=(16**-$_)*(4/($i+1)-2/($i+4)-1/($i+5)-1/($i+6))}print$p

and, briefly, can one of the math whizes say why?

a

Andy Bach, Sys. Mangler     	    CC:Mail andy bach at ~7ca-chicago
Internet: andy@wiwb.uscourts.gov    VOICE: (608) 264-5178 ex 5738, FAX 264-5105

"If at first you don't succeed, try, try again.  Then quit.  There's
 no use being a damn fool about it."  --W.C. Fields


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe