Select Code to Download

perl -E"{++$t;$r=`perl -E\"say rand()\"`;$r<.5?++$a:++$b; printf qq[\r
+%.3f : %.3f], $a*100/$t, $b*100/$t; redo}"
49.350 : 50.650