Select Code to Download

  P_rindex => sub {
    my $x = $X;
...
    my $x = $Y;
    while (1) { my $i = length($x); (rindex($x," ") == $i ? chop : las
+t) };
  },

Benchmark: running F_plus, F_rindex, F_sexeger, F_while, P_plus, P_rin
+dex,P_sexeger, P_while, each for at least 5 CPU seconds...
    F_plus:  6 wallclock secs ( 5.15 usr +  0.00 sys =  5.15 CPU) @ 37
+600.97/s(n=193645)
...
F_sexeger 59188/s    79%    57%       19%     18%       0%        --  
+    -3%-15%
P_rindex  60744/s    83%    62%       23%     21%       3%        3%  
+     ---13%
F_while   69741/s   110%    85%       41%     39%      18%       18%  
+    15%--