Help for this page

Select Code to Download


  1. or download this
      DB<288> sub fac {my $x=1; $x*=$_ for 2..$_[0]; $x}

...

  DB<290> binom 26,8
 => 1562275
  2. or download this
    a bcd
 abcd
aa cd
aab d
aabc
  3. or download this
      DB<292> length "aaaabbbcccddddeeeeffffgggghhhiiijjkkkllllmmmnnnnoooo
+pppqrrrrssssstttuuuuvvwwwxxyyyzzzz"
 => 86

  DB<293> binom 86,8
 => "53060358690"
  4. or download this
     "aaaabbbc..." # pattern
 "1000100...." # ok      => ab...
 "1100100...." # ok      => aab...
 "1001100....  # not ok  => aab...
  5. or download this
    use strict;
use warnings;
...
generate(0,"");

print $nsolutions;