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     ! 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.