Select Code to Download

#! perl -slw
use strict;
...
02 -> 03  0.3169  99.78%  100,000 -> 1,000,000
01 -> 02  0.0007   0.21%  201 -> 100,000
00 -> 01  0.0000   0.01%  INIT -> 201

Code before strictures are enabled at line 1, column 1. See page 429 o
+f PBP.
RCS keywords $Id$ not found at line 1, column 1. See page 441 of PBP.
...
Module does not end with "1;" at line 25, column 21. Must end with a r
+ecognizable true value.
Code not contained in explicit package at line 25, column 21. Violates
+ encapsulation.
Code not contained in explicit package at line 27, column 1. Violates 
+encapsulation.