Help for this page

Select Code to Download

Select or download this
```
use sort qw[ _quicksort ];
```

Select or download this

#! perl -slw
use strict;
...
$res  |= vec( $copy, $_, $SIZE ) > vec( $copy, $_+1, $SIZE ) for 0 .. 
+$N-1;

print 'Sort error' if $res;