Select Code to Download

$ perl -e 'my ($n, $s, $r) = @ARGV; my %x; for (1 .. $r) { my $y = 0; 
+for (1 .. $n) { $y += 1 + int rand $s } ++$x{$y} } printf "Chance of 
+rolling %3d is %3d%%\n", $_, int $x{$_} / $r * 100 for sort { $a <=> 
+$b } keys %x' 2 6 1000000

$ perl -e '
    my ($n, $s, $r) = @ARGV;
...
Chance of rolling  10 is   8%
Chance of rolling  11 is   5%
Chance of rolling  12 is   2%