#!/usr/bin/perl$n=0; for($i=0;$i<10000;$i++){ $n++ if (rand(53) < rand(45));}print $n/10000,"\n";
Standard input is empty
0.4268
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!