Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
#Andrew Levenson
#2:13PM EST
...
print "Zero Active Processors:\n\n";
print $_ foreach(@open);
print "\n";
  2. 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}}