Using Line Noise to Calculate PI

From: jms@tardis.Tymnet.COM (Joe Smith)
Newsgroups: alt.sys.pdp10,alt.folklore.computers,comp.lang.lisp,alt.os.multics
Subject: Re: Dumb Command Names (TECO)
Date: 24 Apr 1995 16:29:03 -0700
Summary: PI to any number of digits
In article < BZS.95Apr13040535@world.std.com> bzs@world.std.com (Barry Shein) writes:

>Then again at MIT a lot of the office people were using TECO, gimmee a
>break, it was indistinguishable from line noise (hey, I loved TECO, ...

+0UN QN"E 20UN ' BUH BUV HK
QN< J BUQ QN*10/3UI
QI< \+2*10+(QQ*QI)UA B L K QI*2-1UJ QA/QJUQ
QA-(QQ*QJ)-2\ 10@I// -1%I >
QQ/10UT QH+QT+48UW QW-58"E 48UW %V ' QV"N QV^T ' QWUV QQ-(QT*10)UH >
QV^T @^A/
/

The above program will calculate an arbitrary number of digits of PI. For TOPS-10 TEC124, the command was "39eiPI.TEC$$" to get 39 digits of PI.

-Joe

Related pages: