Skill语言实现将一个table中的坐标point(x,y)按照x和y进行从小到大排序的函数

本文介绍了一种用于对表格中的点按X或Y坐标进行排序的算法。该算法首先复制原始表格，然后使用冒泡排序法根据指定的坐标类型对点进行排序。提供了两个示例，分别展示了按X坐标和Y坐标排序的结果。

/*****************
对table中的point进行排序，按照type值将x或者y从小到大排
*******************/
defun(TableSort (table type)
	table_len=length(table)
	let((sortedTable)
		sortedTable=makeTable("table")
		for(i 0 table_len-1
			sortedTable[i]=table[i]
		)
		for(i 0 table_len-2
			for(j i+1 table_len-1
				if(type=="x" && car(sortedTable[i])>car(sortedTable[j]) then
					temp=sortedTable[i] 
					sortedTable[i]=sortedTable[j] 
					sortedTable[j]=temp
					
					else if(type=="y" && nth(1 sortedTable[i])>nth(1 sortedTable[j]) then
						temp=sortedTable[i] 
						sortedTable[i]=sortedTable[j] 
						sortedTable[j]=temp
					)
				)
					
			)
				
		)
		sortedTable=sortedTable
	)
)
mytable=makeTable("table")
mytable[0]=3:1
mytable[1]=1:2
mytable[2]=2:3
table1=TableSort(mytable "x")
table1_len=length(table1)
for(i 0 table1_len-1 axlUIWPrint(nil "table1[%d]=%P" i table1[i]))
/*
执行结果：
table1[0]=1:2
table1[1]=2:3
table1[2]=3:1
*/
mytable[0]=1:3
mytable[1]=2:2
mytable[2]=3:1
table1=TableSort(mytable "y")
table1_len=length(table1)
for(i 0 table1_len-1 axlUIWPrint(nil "table1[%d]=%P" i table1[i]))
/*
执行结果：
table1[0]=3:1
table1[1]=2:2
table1[2]=1:3
*/