Select Code to Download

use strict;
use warnings;
...

cmpthese(-1, { algorithm => sub { my @r = algorithm(\@nums) },
           simple => sub { my @r = simple(\@nums) } })

            Rate algorithm    simple
algorithm 1517/s        --      -30%
simple    2177/s       44%        --