Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
sub zip {
    join "", sort { lc $a cmp lc $b} split "", $_[0] . $_[1];
}
  2. or download this
    23:44 >perl 1303_SoPW.pl
AaBbCcDdEeFGHIJ

23:45 >