[VScript] At last, a working shell sort

Finally found a shell sort that works. The problems I had previously might have been had because of this: while (j>=h && a[j-h]>t) I converted that straight to VBScript and kept crashing because a[j-h] with a negative index would get evaluated. By using a do/loop and breaking the test up into two parts do if j < h then exit do end if if a( j - h ) <= t then exit do end if ... I got stuff to work. Here's the code. Usage is similar to that for heap sort. class ShellSorter '~ http://www.iti.fh-flensburg.de/lang/algorithmen/sortieren/shell/shell.htm private a private n public sub sort(a0) a = a0 n = UBound( a ) + 1 shellsort end sub public function sorted() sorted = a end function private sub shellsort() dim i, j, k, h, t dim cols cols = array( 1391376, 463792, 198768, 86961, 33936, _ 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1 ) for k = 0 to UBound( cols ) h = cols( k ) i = h do if i >= n then exit do end if j = i t = a( i ) do if j < h then exit do end if if a( j - h ) <= t then exit do end if a( j ) = a( j - h ) j = j - h loop a( j ) = t i = i + 1 loop next end sub end class