RosettaCodeData/Task/Monte-Carlo-methods/Zkl/monte-carlo-methods-1.zkl

fcn monty(n){
   inCircle:=0;
   do(n){
      x:=(0.0).random(1); y:=(0.0).random(1);
      if(x*x + y*y < 1.0) inCircle+=1;
   }
   4.0*inCircle/n
}