Select Code to Download

# @groups = groups1($s)
sub groups1 {
    return map { substr $_[0], $-[$_], $+[$_] - $-[$_] } 1..$#- 
}

# educated_foo
sub groups2 {
    no strict 'refs'; return map { $$_ } 1..$#- 
}

# demerphq
sub groups3 {
    return eval '($'.join(',$',1..$#-).')'
}

             s/iter     demerphq    @- and @- educated_foo
demerphq       6.65           --         -44%         -50%
@- and @-      3.72          79%           --         -10%
educated_foo   3.34          99%          11%           --

#!/usr/bin/perl

...
});