3dsmax 脚本 快速排序

--快速排序 
--arr 可以是数字或者字符串
--left 起点
--right 终点，一般为arr.count
fn QuickSort arr left right = (
		if left < right then(
				mid = GetMid arr left right
				QuickSort arr left (mid-1)
				QuickSort arr (mid+1) right 
			
			) --if end
		arr		--返回arr
	
	)--fn end

--获取Povit的索引
fn GetMid arr left right = (
		povit = arr[left]
		while left < right do (
			
			while arr[right] >= povit and left < right do  (
				right -= 1
				)	--while end
			Swap arr[right] arr[left]
			while arr[left] <= povit and left < right do (
					left += 1
				) --while end
			Swap arr[left] arr[right]	
			
			)--while end
		arr[left] = povit
		return left
	)

str = #("a","c","d","b","apple","orgemate")
ss = #(10,12,2,5,3,20,224,555,125)

QuickSort ss 1 (ss.count)	--调用方法
QuickSort str 1 (str.count)	--调用方法

ss排序:	#(2, 3, 5, 10, 12, 20, 125, 224, 555)
str排序:	#("a", "apple", "b", "c", "d", "orgemate")