Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 09a486c6f7
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (11 sloc) 0.308 kb
my $chars-to-roll = 600;
my @count = 0 xx 20;
for ^$chars-to-roll {
my @a = (^6).map({ [+] (1..6).pick(4, :replace).sort(-*)[^3] }).sort(-*);
for @a { @count[$_]++ };
# say ~@a;
}
say " ";
for 3..18 {
say "$_ rolled { @count[$_] } times ({ @count[$_] / ($chars-to-roll * 6) * 100 }%)";
}
Jump to Line
Something went wrong with that request. Please try again.