Return to 'PI CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / B / ex / pi

Annotation of 43BSD/contrib/B/ex/pi/'PI, revision 1.1.1.1

1.1       root        1: HOW'TO PI n':
                      2:        \Print the first n places of pi. a, b, c and d get very large.
                      3:        WRITE '3.'
                      4:        PUT n' IN n
                      5:        PUT 3, 0, 40, 4, 24, 0, 1 IN k, a, b, c, d, e, f
                      6:        WHILE n>0:
                      7:                WHILE e=f AND n>0:
                      8:                        WRITE e<<1
                      9:                        PUT n-1 IN n
                     10:                        PUT 10*(a-e*c), 10*(b-f*d) IN a, b
                     11:                        PUT floor(a/c), floor(b/d) IN e, f
                     12:                PUT k**2, 2*k+1, k+1 IN p, q, k
                     13:                PUT b, p*a+q*b, d, p*c+q*d IN a, b, c, d
                     14:                PUT f, floor(b/d) IN e, f
                     15:        WRITE /

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.