Help for this page

Select Code to Download


  1. or download this
    Perl Version: 5.016003
Array Length: 10000
...
rec_split   83.8/s     1026%       815%        24%        --      -96%
+     -100%
iterative   2145/s    28722%     23322%      3073%     2461%        --
+      -94%
listutil   36669/s   492642%    400327%     54142%    43678%     1610%
+        --
  2. or download this
    use warnings;
use strict;
...
              sub { sum(@array) == $expect or die },
             }
        );