VBScript
' クイックソートのインターフェース Sub qsort(array) quicksort array, 0, UBound(array) End Sub ' クイックソート本体(再帰) Sub quicksort(array, first, last) Dim point, f, l, tmp point = array(first) f = first: l = last Do While array(f) Wh…
' クイックソートのインターフェース Sub qsort(array) quicksort array, 0, UBound(array) End Sub ' クイックソート本体(再帰) Sub quicksort(array, first, last) Dim point, f, l, tmp point = array(first) f = first: l = last Do While array(f) Wh…