Select Code to Download

use Benchmark qw(cmpthese);
my $limit = 10_000;
...
   f1 => sub { $_ = 0; f1() },
   f2 => sub { $_ = 0; f2() },
};

    Rate   f1   f0   f2
f1 245/s   -- -15% -71%
...
f1 218/s   -- -23% -77%
f0 283/s  30%   -- -70%
f2 932/s 328% 229%   --