Select Code to Download

P:\test>junk
Array[ 1..10000]: 200056
...
        Rate  tree array
tree  17.1/s    --  -82%
array 95.1/s  455%    --

#!/usr/bin/perl -lw
use strict;
...
sub left  { $_[0]->[1] }
sub right { $_[0]->[2] }