Select Code to Download

use strict;
use warnings;
...
                 Rate     obj_counter closure_counter
obj_counter     192/s              --            -51%
closure_counter 388/s            102%              --

use strict;
use warnings;
...
                   Rate     obj_dir_iter closure_dir_iter
obj_dir_iter     1667/s               --              -8%
closure_dir_iter 1818/s               9%               --

use strict;
use warnings;
...
                 Rate closure_turtle     obj_turtle
closure_turtle 15.4/s             --           -23%
obj_turtle     20.0/s            30%             --

# IF = %b.(%x.(%y.(b x) y))
$IF = sub { 
...

print $IF->($TRUE)->("then")->("else");   # prints "then"
print $IF->($FALSE)->("then")->("else");  # prints "else"