Anonymous user
Sorting algorithms/Shell sort: Difference between revisions
→{{header|VBscript}}
Line 3,217:
lngMax = UBound(arrData)
lngGap = lngMin
Do While (lngGap < lngMax)
lngGap = 3 * lngGap + 1
Loop
Do While (lngGap > 1)
lngGap = lngGap \ 3
|