Select Code to Download

use warnings;
use strict;
...
              sub { sum(@array) == $expect or die },
             }
        );

 
               Rate recursive recursive2 recursive3      eval iterativ
+e listutil
...
eval          339/s       84%        76%        41%        --      -97
+%    -100%
iterative   10240/s     5472%      5225%      4159%     2923%        -
+-     -95%
listutil   205922/s   111960%    106979%     85548%    60701%     1911
+%       --