Select Code to Download

use warnings;
use strict;
...
    @r;
}

# 2**28 < fact(12) < 2**29 < 2**32 < fact(13) < 2**33 < 
#   < 2**52 < fact(18) < 2**53 < 2**56 < fact(19) < 2**57
...


__END__

sub word_to_indicator {
        my($n, $w) = @_;
...
                print "$combination : @indicator : $N $K $C $rank\n";
        }
}