Help for this page

Select Code to Download


  1. or download this
    # Replace:
    my @sorted= sort @list;
...
            $list[$a] cmp $list[$b] || $a <=> $b
        } 0..$#list
    ];
  2. or download this
    # Replace:
    my @sorted=
...
            } 0..$#sortOn;
        ];
    };
  3. or download this
    # Replace:
    my @sorted=
...
        @list;

# with:
  4. or download this
        my @sorted= @list[
        map { unpack "N", substr($_,-4) }
...
        map { XFORM($list[$_]) . pack "N", $_ }
        0..$#list
    ];