Select Code to Download

package Die;

...
}

1;

#! /usr/bin/perl

...

  ( 0 < $roll && $x >= $roll );
}, name => "With a six sided die, I get this distribution";

1..2
ok 1 - 'My die returns something between 1 and the number of sides of 
+the die.' (1000 attempts)
...
#  16% 5
#  16% 6
#  15% 4