Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl

...
    }
    \@word_list;
}

Select or download this

Benchmark: timing 10000000 iterations of Mine, Yours...
      Mine:  9 wallclock secs ( 8.82 usr +  0.02 sys =  8.84 CPU) @ 11
+31221.72/s (n=10000000)
...
           Rate Yours  Mine
Yours  454752/s    --  -60%
Mine  1131222/s  149%    --