Select Code to Download

sub pascal_tri_row {
    my $r = shift;
...
    repel_tri => sub { pascal_tri_row(32) },
    robo_2    => sub { robo_2(32) },
};

$ perl 892898.pl
robo_1: 1 8 28 56 70 56 28 8 1
...
robo_tri   2196/s        --      -42%      -93%
repel_tri  3775/s       72%        --      -88%
robo_2    31946/s     1355%      746%        --