Skill语言的数组排序函数

defun(ArraySort (array)
array_len=length(array)
let((sortedarray)
declare(sortedarray[8])
for(i 0 array_len-1 sortedarray[i]=array[i]) 
for(i 0 array_len-2
	for(j i+1 array_len-1
	if(sortedarray[i]>sortedarray[j] then temp=sortedarray[i] sortedarray[i]=sortedarray[j] sortedarray[j]=temp)
	)
)
sortedarray=sortedarray
)
)