Ideone.com

fork download

copy

#!/usr/bin/perl
$n=0;
 
for($i=0;$i<10000;$i++)
{
	$n++ if (rand(53) < rand(45));
}
print $n/10000,"\n";

Success #stdin #stdout 0s 6044KB

stdin

copy

Standard input is empty

stdout

copy

0.4268

https://ideone.com/7kEysL

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!