use strict;
use warnings;
use Test::More tests => 1+2*20;
BEGIN { use_ok('Statistics::Test::Sequence') };

my @fac = qw(
1
2
6
24
120
720
5040
40320
362880
3628800
39916800
479001600
6227020800
87178291200
1307674368000
20922789888000
355687428096000
6402373705728000
121645100408832000
2432902008176640000
);

foreach (1..2) {
    my $msg = '';
    $msg = ' ... memoized' if $_ ==2;
    foreach (1..@fac) {
        is(
            $fac[$_-1], Statistics::Test::Sequence::faculty($_),
            "faculty($_)$msg"
        );
    }
}