Help for this page

Select Code to Download


  1. or download this
    sub rolldice()
{
        my $roll = int(rand(12)) + 1;
        return $roll;
}
  2. or download this
    #!c:\perl\bin\perl.exe

...
  my $n = sprintf("%02d",$i);
  print "$n = $rollhashes[0]{$i}\t\t$n = $rollhashes[1]{$i}\n";
}
  3. or download this
    USING TWO DICE:

...
10 = 856                10 = 821
11 = 891                11 = 841
12 = 823                12 = 848