Help for this page

Select Code to Download


  1. or download this
    do {
    print "@ARGV\n";
} while( nextPermut­e(@ARGV) );
  2. or download this
          return if $i == -1;
  3. or download this
          if(  $i == -1  ) {
         $first= 1;
         return;
      }