Select Code to Download

use strict; 
use warnings;
...
               limbic => sub { limbic($root, $prod, @facts) },
           my_old => sub { closest($root, $prod, @facts) }
});

Closest is 70499
Limbic says: 70499
...
limbic 8.02/s     --   -82%  -100%
pruner 45.1/s   462%     --   -98%
my_old 2632/s 32727%  5737%     --

P=4789309440, R=69204.8368251815
Closest is 61440
...
limbic 0.749/s      --   -100%   -100%
pruner   181/s  24119%      --    -97%
my_old  5545/s 740213%   2957%      --