纯数字排序极速版求助

lianzhong

祝各位老师龙年福运连连！新春吉祥！求助一版极速排序代码，纯数字0-9按照出现次数多于少排序，排序格式如下例子。
情况：论坛上也搜集了一版代码可以实现排序，计算量少的情况下是满足使用的，但数量超10万+量运行慢的不行，不是电脑问题，因为别的软件可以毫秒间无延迟完成，所以求助专业老师给与帮助，求一版经典极速版排序代码永久收藏，期待您的回复。
以下是排序要求格式：
  次数   数字
【  0 】9
【  1 】3
【  2 】0 6 8 -------当次数相同数字排在一行内
【  3 】2
【  4 】4 1
【  6 】5
【  10】7


后附测试数字：

z899505cqz

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
数据指针	整数型
桶指针	整数型
数据尾指针	整数型
数据	字节集
桶	整数型		0
s1	整数型
桶_副本	整数型		0
s2	整数型
结果文本	文本型
启动时间	整数型

数据指针 ＝ 0
桶指针 ＝ 0
数据尾指针 ＝ 0
数据 ＝ {  }
桶 ＝ { 0 }
重定义数组 (桶, 假, 57)
启动时间 ＝ 取启动时间 ()
' ------------------------------------------------
数据 ＝ 子字节集替换 (读入文件 (“C:\Users\aaa\Desktop\10万 数字.txt”), { 13, 10 }, {  }, , )
数据指针 ＝ 取变量数据地址 (数据)
桶指针 ＝ 取变量数据地址 (桶)
数据尾指针 ＝ 数据指针 ＋ 取字节集长度 (数据)
置入代码 ({ 139, 93, 252, 139, 117, 248, 139, 77, 244, 131, 238, 4, 184, 0, 0, 0, 0, 138, 3, 255, 4, 134, 67, 57, 203, 124, 246 })
删除成员 (桶, 1, 47)
' 调试输出 (桶)
' ----------------------------------------------------------------------------------------
桶_副本 ＝ 桶
数组排序 (桶, 真)
计次循环首 (10, s1)
结果文本 ＝ 结果文本 ＋ “【” ＋ 到文本 (桶 [s1]) ＋ “】”
计次循环首 (10, s2)
如果真 (桶 [s1] ＝ 桶_副本 [s2])
结果文本 ＝ 结果文本 ＋ “ ” ＋ 到文本 (s2 － 1)

计次循环尾 ()
结果文本 ＝ 结果文本 ＋ #换行符
计次循环尾 ()
启动时间 ＝ 取启动时间 () － 启动时间
编辑框1.内容 ＝ 到文本 (启动时间)
调试输出 (结果文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 数据指针, 整数型<br /> .局部变量 桶指针, 整数型<br /> .局部变量 数据尾指针, 整数型<br /> .局部变量 数据, 字节集<br /> .局部变量 桶, 整数型, , "0"<br /> .局部变量 s1, 整数型<br /> .局部变量 桶_副本, 整数型, , "0"<br /> .局部变量 s2, 整数型<br /> .局部变量 结果文本, 文本型<br /> .局部变量 启动时间, 整数型<br /> <br /> 数据指针 ＝ 0<br /> 桶指针 ＝ 0<br /> 数据尾指针 ＝ 0<br /> 数据 ＝ {  }<br /> 桶 ＝ { 0 }<br /> 重定义数组 (桶, 假, 57)<br /> 启动时间 ＝ 取启动时间 ()<br /> ' ------------------------------------------------<br /> 数据 ＝ 子字节集替换 (读入文件 (“C:\Users\aaa\Desktop\10万 数字.txt”), { 13, 10 }, {  }, , )<br /> 数据指针 ＝ 取变量数据地址 (数据)<br /> 桶指针 ＝ 取变量数据地址 (桶)<br /> 数据尾指针 ＝ 数据指针 ＋ 取字节集长度 (数据)<br /> 置入代码 ({ 139, 93, 252, 139, 117, 248, 139, 77, 244, 131, 238, 4, 184, 0, 0, 0, 0, 138, 3, 255, 4, 134, 67, 57, 203, 124, 246 })<br /> 删除成员 (桶, 1, 47)<br /> ' 调试输出 (桶)<br /> ' ----------------------------------------------------------------------------------------<br /> 桶_副本 ＝ 桶<br /> 数组排序 (桶, 真)<br /> .计次循环首 (10, s1)<br />     结果文本 ＝ 结果文本 ＋ “【” ＋ 到文本 (桶 [s1]) ＋ “】”<br />     .计次循环首 (10, s2)<br />         .如果真 (桶 [s1] ＝ 桶_副本 [s2])<br />             结果文本 ＝ 结果文本 ＋ “ ” ＋ 到文本 (s2 － 1)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     结果文本 ＝ 结果文本 ＋ #换行符<br /> .计次循环尾 ()<br /> 启动时间 ＝ 取启动时间 () － 启动时间<br /> 编辑框1.内容 ＝ 到文本 (启动时间)<br /> 调试输出 (结果文本)

经测试编译后120万个数字只要65毫秒

鹏书

https://www.bilibili.com/video/BV1HY411U79U/

lianzhong

鹏书 发表于 2024-2-22 14:08
https://www.bilibili.com/video/BV1HY411U79U/

@鹏书 老师带讲课的，很荣幸照着你的视频复刻了一遍代码，经测验10万+数字排序大约100毫秒出结果！比我现有的版本速度提升N倍!而且还适用长整数排序。我把你的代码贴出来做个备份，也给其他需要的朋友提供的方便。
以下是“鹏书”老师的源代码：数字排序

  

变量名	类 型	静态	数组	备 注
array	文本型		0	作者：鹏书
jd	节点
i	整数型
int	整数型
arrayInt	整数型		0
t	整数型

t ＝ 取启动时间 ()
文本_逐字分割_汇编 (编辑框_左.内容, array)
编辑框_右.内容 ＝ “”
计次循环首 (取数组成员数 (array), i)
如果真 (取反 (jd.加入属性 (array [i], 1)))
jd.取数值 (array [i], int)
jd.修改属性 (array [i], int ＋ 1)

计次循环尾 ()
jd.取全部属性名 (array)
计次循环首 (取数组成员数 (array), i)
jd.取数值 (array [i], int)
加入成员 (arrayInt, int × 10000 ＋ 到整数 (array [i]))
计次循环尾 ()
数组排序 (arrayInt, )
编辑框_右.加入文本 (“ 次数  数字” ＋ #换行符 )
计次循环首 (取数组成员数 (arrayInt), i)
编辑框_右.加入文本 (“【” ＋ 到文本 (到整数 (arrayInt [i] ÷ 10000)) ＋ “】” ＋ 到文本 (arrayInt [i] ％ 10000) ＋ #换行符 )
计次循环尾 ()
标签1.标题 ＝ “排序用时：” ＋ 到文本 (取启动时间 () － t) ＋ “毫秒”

i支持库列表	支持库注释
EDataStructure	数据结构支持库

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .局部变量 array, 文本型, , "0", 作者：鹏书<br /> .局部变量 jd, 节点<br /> .局部变量 i, 整数型<br /> .局部变量 int, 整数型<br /> .局部变量 arrayInt, 整数型, , "0"<br /> .局部变量 t, 整数型<br /> <br /> t ＝ 取启动时间 ()<br /> 文本_逐字分割_汇编 (编辑框_左.内容, array)<br /> 编辑框_右.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (array), i)<br />     .如果真 (取反 (jd.加入属性 (array <i>, 1)))<br />         jd.取数值 (array <i>, int)<br />         jd.修改属性 (array <i>, int ＋ 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> jd.取全部属性名 (array)<br /> .计次循环首 (取数组成员数 (array), i)<br />     jd.取数值 (array <i>, int)<br />     加入成员 (arrayInt, int × 10000 ＋ 到整数 (array <i>))<br /> .计次循环尾 ()<br /> 数组排序 (arrayInt, )<br /> 编辑框_右.加入文本 (“ 次数  数字” ＋ #换行符)<br /> .计次循环首 (取数组成员数 (arrayInt), i)<br />     编辑框_右.加入文本 (“【” ＋ 到文本 (到整数 (arrayInt <i> ÷ 10000)) ＋ “】” ＋ 到文本 (arrayInt <i> ％ 10000) ＋ #换行符)<br /> .计次循环尾 ()<br /> 标签1.标题 ＝ “排序用时：” ＋ 到文本 (取启动时间 () － t) ＋ “毫秒”

lianzhong

谢谢@鹏书 老师的代码，我现在水平只能使用老师的代码却无法改变他，请求老师再帮助一下，在你的代码上把相同次数的“数字”放到一行上如何做呐？如：
次数    数字
【  0 】9
【  1 】3
【  2 】0 6 8 -------当次数相同数字排在一行内
【  3 】2
【  4 】4 1
【  6 】5
【  10】7

lianzhong

z899505cqz 发表于 2024-2-22 17:36
[e=0].版本 2
.支持库 spec

好激动！经测试10万+数字仅仅需要十几毫秒完成！终于遇到传说中的极速代码，对于我这种不会写代码人遇到极品代码就是如获至宝，我多备份几次千万不能丢失喽，非常感谢@z899505cqz 老师的提供。
您要是在能指导着把相同次数的数字放到同一行上去，真是太完美了~~

明天自然醒

Desktop.zip (189.53 KB, 下载次数: 5)

2024-2-22 19:54 上传

点击文件名下载附件

不到1ms，10ms?? 不过尔尔

z899505cqz

删除了多余的替换字节集的代码，速度更快了。10万数据比上面的慢一点，但是100万数据，比上面那个快一倍。  修复了把相同次数的数字放到同一行