Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: Golf -- compute PI

by wog (Curate)
on Apr 16, 2002 at 02:01 UTC ( #159389=note: print w/replies, xml ) Need Help??

in reply to Golf -- compute PI

$i+=1/(($_+=1e-7)**2+1)until$_>1;print$i/1e7*4 #23456789_123456789_123456789_123456789_123456 # 1 2 3 4

46 chars. (Changes the algorithm.) Change all 7s to a higher number for a better approximation and slower runtime, change it to a lower number for worse approximation and faster runtime.


$i+=($_&1?4:-4)/($_*2-1)for 1..1e6;print$i #23456789_123456789_123456789_123456789_12 # 1 2 3 4

(another, similar solution was there breifly: 44 chars.Pretty much the same algorithm Ovid gave. (The 4 is just factored out.))

42 chars. The same algorithm Ovid gave. (Change the 6 to a higher number for a better approximation, etc.)

Replies are listed 'Best First'.
Re: Re: Golf -- compute PI
by Anonymous Monk on Apr 16, 2002 at 03:11 UTC
    Shave another
    $i+=($_%2*8-4)/($_*2-1)for 1..1e6;print$i
    or equivalently
    $i+=4*(-1)**$_/(1-$_*2)for 1..1e6;print$i

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://159389]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2022-10-04 20:57 GMT
Find Nodes?
    Voting Booth?
    My preferred way to holiday/vacation is:

    Results (19 votes). Check out past polls.