Select Code to Download

#! /usr/bin/perl -l

...

print "@{[map {int (()=solve($holes + $_, $holes))} 0..17]}";
print "@{[map {choose($holes -1 + $_, $_)} 0..17]}";

#! /usr/bin/perl -l

...
    ++$d[$_-1] for @{+shift};
    return \@d;
}