Help for this page

Select Code to Download

Select or download this
```
my $res; 
...

# average: 3.501
```

Select or download this

my $tenk;
$tenk += 1+int( rand(6) ) for 1..10000;
ok ( $tenk/10000 > 3.4, "average randomness ok (10000d6 / 10000 > 3.4)
+" );
ok ( $tenk/10000 < 3.6, "average randomness ok (10000d6 / 10000 < 3.6)
+" );