Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    return d1d6() + d1d6();
}

# perl dice.pl
Sorted: 3 3 4 5 7 7 7 9
Before culling: 3 5 7 4 7 9 7 3
After culling: 5 7 4 7 9 7