Help for this page

Select Code to Download


  1. or download this
        if ($roll == $point)
    {
...
               print "what happens here?";  # loss? draw?
         }
     }
  2. or download this
    LOSE -1
average dice roll: 7
...
average dice roll: 7
LOSE -1
average dice roll: 7
  3. or download this
    sub rolldice()
{
...
        my $roll = $d1 + $d2;
        return $roll;
}