Select Code to Download

map {$a[int(rand(6) + 1)]++} 0 .. 5999;

$a[int(rand(6) + 1)]++} for 0 .. 5999;
print "side $_: $a[$_]\n" for 1..6;