Select Code to Download

#!/usr/bin/env perl
use strict;
...
    pryrt => sub { pryrt @array; },
});
cmpthese $rv;

20 [953 317 563 582 789 629 613 918 9 680 276 163 119 915 967 426 820 
+227 256 650]
lis: [ 317 563 582 613 680 915 967 ]
...
         s/iter       pryrt     lis
pryrt      5.63        --     -100%
lis   3.97e-005 14197064%        --