$end=1000000; for($i=1;$i<=$end;$i++) { $x=rand();$y=rand(); if ($x*$x+$y*$y < 1) {$c++;} } print "pi= ",4*$c/$end;

Suppose we have a floor made of parallel strips of wood, each the same width, and we drop a needle onto the floor. What is the probability that the needle will lie across a line between two strips? How does this relate to the above code of “calculating” Pi in Perl? Check out this video: Buffon’s Needle and this Chocolate Pi Calculator

You must be logged in to post a comment.