前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >Skill语言实现将一个table中的坐标point(x,y)按照x和y进行从小到大排序的函数

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

作者头像
黑马Amos
发布2023-03-21 13:45:15
7370
发布2023-03-21 13:45:15
举报
文章被收录于专栏:李家杂货铺zi
代码语言: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
*/
本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2019-08-01,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档