代码语言：javascript复制
/*****************
对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
*/
