Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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.

update:

$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.)


Comment on Re: Golf -- compute PI
Select or Download Code
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2014-09-21 16:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (172 votes), past polls