Select Code to Download

package LUHN;

...
}

1;

# test_LUHN_1.pl                                            01dec18waw

...
  cd_AM        => sub { LUHN::cd_AnomalousMonk ('401135000000000') },
  cd_BrowserUk => sub { LUHN::cd_BrowserUk     ('401135000000000') },
  });

c:\@Work\Perl\monks\kschwab>perl test_LUHN_1.pl
tested cc number range kschwab vs. AnomalousMonk ok
...
cd_kschwab    52764/s           --         -40%         -62%
cd_BrowserUk  88033/s          67%           --         -37%
cd_AM        139999/s         165%          59%           --

sub cd_AM_HOP {  # iterator solution

...
        };  # end sub iterator

    }