Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
#Andrew Levenson
#2:13PM EST
...
    unshift @open, $_ if $_=~m/\s{1,}0\s{1,}$/;
}    
print "$_\n" foreach(@open);

Select or download this




C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}