Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use constant LAST => -1;
...
    }
    return \@solution;
}
  2. or download this
    #!/usr/bin/perl
use strict;
...
    my ($node) = @_;
    return ord($node) - 65;
}
  3. or download this
    #!/usr/bin/perl
use strict;
...
    }
    return;
}