Select Code to Download

# Output reformatted for readability :)

Benchmark: running juerd, seattlejohn, theguvnor, 
...
juerd        20926/s          --        -56%        -80%
seattlejohn  47569/s        127%          --        -54%
theguvnor   103021/s        392%        117%          --

#!perl

use strict;
...
    'theguvnor'   => sub { theguvnor($s)   },
    'seattlejohn' => sub { seattlejohn($s) },
});