Select Code to Download

sub gf2 {
...
    
    return $result;
}

gf1 result: 2.11267605633804
gf2 result: 2.11267605633804
...
op  7.57/s      --   -100%   -100%
gf2 7732/s 102012%      --    -10%
gf1 8582/s 113238%     11%      --

use warnings;
use strict;
...
    return 0 unless defined $alpha;
    return $alpha ? @request/$alpha : 1000;    
}