Select Code to Download

Number of Hashes = 305798
Number of Values = 4892785
...
slice        5.81         8%         7%         --        -2%        -
+9%
recursive    5.68        11%        10%         2%         --        -
+7%
iterative    5.27        19%        18%        10%         8%         
+--

Number of Hashes = 405929
Number of Values = 6494881
...
map_grep_2   1.65         1%         0%         --        -6%       -1
+0%
slice        1.55         7%         6%         6%         --        -
+5%
recursive    1.48        13%        12%        12%         5%         
+--

Number of Hashes = 1579338
Number of Values = 6317357
...
map_grep     10.4         3%         3%         --        -3%        -
+3%
recursive    10.1         6%         6%         3%         --        -
+0%
iterative    10.0         7%         7%         3%         0%         
+--

Number of Hashes = 1226812
Number of Values = 4907253
...
map_grep     2.13        20%         1%         --        -0%        -
+6%
map_grep_2   2.12        20%         1%         0%         --        -
+6%
recursive    1.99        28%         8%         7%         6%         
+--

sub hash_slice {
    my $n ;
...
    }
    return $n ;
}

#! /usr/bin/env perl

use strict ;
...
is_deeply( $_->( $t->{source}, $t->{filter} ), $t->{output} ) foreach 
+( \&hash_filter_recursive, \&hash_filter_iterative, \&hash_slice, \&m
+ap_grep, \&map_grep_2 );

done_testing();