数组去重复，再比原来快一倍，数组排序用了归并算法

cf2006a

APPLEUFO 发表于 2025-6-23 12:09
后面跑通了，这样才看到

重定义数组 (ccc, 真, ls)

不用啊   置数组成员数 （ccc,ls）就可以了  你要是调用计次循环  .版本 2

.局部变量 ls, 整数型
.局部变量 i, 整数型

.计次循环首 (ls, i)
    调试输出 (ccc)
.计次循环尾 ()
这样都是不重复的 没有必要 把后面的去掉 调用不影响

cf2006a

cf2006a 发表于 2025-6-23 11:06
重定义 不是浪费时间 他 ls是不重复的数量重复的都放后面去了也就是ls 后面都是重复的数据 ...

没懂   数组去重 (ccc, #文本型) 你不是去文本数组吗  整数没意义  他排序是在原数组里完成

外星星人

感谢分享  支持

APPLEUFO

cf2006a 发表于 2025-6-23 11:06
重定义 不是浪费时间 他 ls是不重复的数量重复的都放后面去了也就是ls 后面都是重复的数据 ...

后面跑通了，这样才看到

重定义数组 (ccc, 真, ls)
' 调试输出 (ls)
计时器结束 ()

cf2006a

APPLEUFO 发表于 2025-6-23 09:19
.版本 2

计时器启动 ()

重定义 不是浪费时间 他 ls是不重复的数量重复的都放后面去了也就是ls 后面都是重复的数据

我的yyy123

学习学习

杰西卡技术传媒

感谢分享，很给力！~

APPLEUFO

cf2006a 发表于 2025-6-23 08:51
数组去重_ASM，1000万数据，毫秒级去重复，支持通用型数组
https://125.confly.eu.org/forum.php?mod=viewthread&t ...

.版本 2

计时器启动 ()
数组去重 (ccc, #整数型)
计时器结束 ()

这个代码试了一下  没跑通    得不到正确结果啊   ，咋回事  

结果素组成员 还是 原始的那么多  

=================
.版本 2

计时器启动 ()
ls ＝ 数组去重 (ccc, #整数型)
重定义数组 (ccc, 真, ls)
' 调试输出 (ls)
计时器结束 ()


后面行了要这样   
我这里测试    桶排序比汇编还是快的。
除非他用汇编版本桶排序，才会更快

一指温柔

感谢分享，很给力！~

APPLEUFO

你不丑 发表于 2025-6-23 01:45
精易模块不是有汇编版本的吗 你还要写一个有啥意义呢 你比他那个还快吗

那个只能整数型去重复，对于文本型的就不行了（混合字母的也不行）    顺便问一下精益模块里的哪一条命令，精益模块11里，我 就找到了不是汇编版本的，汇编版本的没看到
用桶排序去重复，测试了速度不输精易模块的， 只能排序大于0的正整数

  

子程序名	返回值类型	公开	备 注
数组模块_去重复桶排序_整数型
参数名	类 型	参考	可空	数组	备 注
参数_原始数组	整数型
参数_结果数组	整数型

变量名	类 型	静态	数组	备 注
局变_最大数	整数型
局变_桶子	整数型		0	根据 局变_最大数  定义需要 多少个桶子
n1	整数型
m1	整数型

计次循环首 (取数组成员数 (参数_原始数组), n1)  ' 找数组里面最大的数
如果真 (局变_最大数 ＜ 参数_原始数组 [n1])
局变_最大数 ＝ 参数_原始数组 [n1]

计次循环尾 ()
' 调试输出 (局变_最大数, “局变_最大数”)
重定义数组 (局变_桶子, 假, 局变_最大数)  ' 从 1 --- 最大值
计次循环首 (取数组成员数 (参数_原始数组), n1)
' 局变_临时 ＝ 参数_原始数组 [n1]
局变_桶子 [参数_原始数组 [n1]] ＝ 1
计次循环尾 ()
重定义数组 (参数_结果数组, 假, 取数组成员数 (参数_原始数组))
计次循环首 (取数组成员数 (局变_桶子), n1)
如果 (局变_桶子 [n1] ＝ 0)



m1 ＝ m1 ＋ 1
参数_结果数组 [m1] ＝ n1

计次循环尾 ()
重定义数组 (参数_结果数组, 真, m1)

子程序名	返回值类型	公开	备 注
数组模块_验证是否有重复_整数	逻辑型		有返回假 否则真   没有重复返回真
参数名	类 型	参考	可空	数组	备 注
参数_整数数组	整数型

变量名	类 型	静态	数组	备 注
n1	整数型
m1	整数型

数组排序 (参数_整数数组, 真)
计次循环首 (取数组成员数 (参数_整数数组) － 1, n1)
' 调试输出 (参数_整数数组 [n1], 参数_整数数组 [n1 ＋ 1], 666)
如果 (参数_整数数组 [n1] ＝ 参数_整数数组 [n1 ＋ 1])
返回 (假)


' 继续无动作

计次循环尾 ()
返回 (真)

.版本 2<br /> <br /> .子程序 数组模块_去重复桶排序_整数型, , 公开<br /> .参数 参数_原始数组, 整数型, 数组<br /> .参数 参数_结果数组, 整数型, 数组<br /> .局部变量 局变_最大数, 整数型<br /> .局部变量 局变_桶子, 整数型, , "0", 根据 局变_最大数  定义需要 多少个桶子<br /> .局部变量 n1, 整数型<br /> .局部变量 m1, 整数型<br /> <br /> .计次循环首 (取数组成员数 (参数_原始数组), n1)  ' 找数组里面最大的数<br />     .如果真 (局变_最大数 ＜ 参数_原始数组 [n1])<br />         局变_最大数 ＝ 参数_原始数组 [n1]<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 调试输出 (局变_最大数, “局变_最大数”)<br /> <br /> 重定义数组 (局变_桶子, 假, 局变_最大数)  ' 从 1 --- 最大值<br /> <br /> .计次循环首 (取数组成员数 (参数_原始数组), n1)<br />     ' 局变_临时 ＝ 参数_原始数组 [n1]<br />     局变_桶子 [参数_原始数组 [n1]] ＝ 1<br /> .计次循环尾 ()<br /> <br /> 重定义数组 (参数_结果数组, 假, 取数组成员数 (参数_原始数组))<br /> <br /> .计次循环首 (取数组成员数 (局变_桶子), n1)<br /> <br />     .如果 (局变_桶子 [n1] ＝ 0)<br /> <br />     .否则<br /> <br />         m1 ＝ m1 ＋ 1<br />         参数_结果数组 [m1] ＝ n1<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 重定义数组 (参数_结果数组, 真, m1)<br /> <br /> <br /> <br /> <br /> .子程序 数组模块_验证是否有重复_整数, 逻辑型, 公开, 有返回假 否则真   没有重复返回真<br /> .参数 参数_整数数组, 整数型, 数组<br /> .局部变量 n1, 整数型<br /> .局部变量 m1, 整数型<br /> <br /> 数组排序 (参数_整数数组, 真)<br /> <br /> .计次循环首 (取数组成员数 (参数_整数数组) － 1, n1)<br /> <br />     ' 调试输出 (参数_整数数组 [n1], 参数_整数数组 [n1 ＋ 1], 666)<br /> <br />     .如果 (参数_整数数组 [n1] ＝ 参数_整数数组 [n1 ＋ 1])<br />         返回 (假)<br />     .否则<br /> <br />         ' 继续无动作<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (真)

.版本 2

' 计时器启动 ()
' 数组_去重复_整数型 (aaa)
' 计时器结束 ()

计时器启动 ()
数组_去重复_整数型1 (bbb)
计时器结束 ()



计时器启动 ()
数组模块_去重复桶排序_整数型 (ddd, ddd_结果)
计时器结束 ()



* Windows 11
* “8 秒 734 毫秒 ”
* “453 毫秒 ”
* “218 毫秒 ”   ----------------------------------这个
* 真 | 32768
* 真 | 32768
* 真 | 32768