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

APPLEUFO

黑咖啡 发表于 2025-6-23 00:15
有这么慢吗？

不是变量循环的问题 ，时间消耗在 清空10000的数组，然后重定义成100的数组上面了

APPLEUFO

黑咖啡 发表于 2025-6-23 00:15
有这么慢吗？

  

调试模块_创建文本型数组 (aaa, 10000 × 5)
' 调试输出 (aaa)
计时器启动 ()
数组模块_去重复7_排序后对比 (aaa, aaa_结果)
' 数组模块_去重复4_节点法 (aaa, aaa_结果)
计时器结束 ()
调试输出 (“===============”)
' 调试输出 (数组模块_验证是否无重复数据 (aaa_结果), 取数组成员数 (aaa_结果))
调试输出 (取数组成员数 (aaa_结果))
鸣叫 ()
鸣叫 ()
结束 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> 调试模块_创建文本型数组 (aaa, 10000 × 5)<br /> ' 调试输出 (aaa)<br /> <br /> 计时器启动 ()<br /> 数组模块_去重复7_排序后对比 (aaa, aaa_结果)<br /> ' 数组模块_去重复4_节点法 (aaa, aaa_结果)<br /> 计时器结束 ()<br /> 调试输出 (“===============”)<br /> <br /> ' 调试输出 (数组模块_验证是否无重复数据 (aaa_结果), 取数组成员数 (aaa_结果))<br /> 调试输出 (取数组成员数 (aaa_结果))<br /> 鸣叫 ()<br /> 鸣叫 ()<br /> 结束 ()

这里创建了一个大量不重复的数据。
节点法的时间 都花在 加入属性  这上面了。如果数据是大量不重复的。就会消耗非常多在循环加入上
而排序去重 的时间消耗，还是很稳定的

  

子程序名	返回值类型	公开	备 注
数组模块_去重复4_节点法
参数名	类 型	参考	可空	数组	备 注
参数_原始数组	文本型
参数_结果数组	文本型

变量名	类 型	静态	数组	备 注
局变_节点	节点
m1	整数型

计时器启动 ()
计次循环首 (取数组成员数 (参数_原始数组), m1)
局变_节点.加入属性 (参数_原始数组 [m1], “”)
计次循环尾 ()
计时器结束 ()
计时器启动 ()
局变_节点.取全部属性名 (参数_结果数组)
计时器结束 ()

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

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .子程序 数组模块_去重复4_节点法, , 公开<br /> .参数 参数_原始数组, 文本型, 数组<br /> .参数 参数_结果数组, 文本型, 数组<br /> .局部变量 局变_节点, 节点<br /> .局部变量 m1, 整数型<br /> <br /> 计时器启动 ()<br /> .计次循环首 (取数组成员数 (参数_原始数组), m1)<br />     局变_节点.加入属性 (参数_原始数组 [m1], “”)<br /> .计次循环尾 ()<br /> 计时器结束 ()<br /> 计时器启动 ()<br /> 局变_节点.取全部属性名 (参数_结果数组)<br /> 计时器结束 ()

APPLEUFO

黑咖啡 发表于 2025-6-23 00:15
有这么慢吗？

  

子程序名	返回值类型	公开	备 注
数组模块_去重复4_节点法
参数名	类 型	参考	可空	数组	备 注
文本数组	文本型

变量名	类 型	静态	数组	备 注
节点	节点
count	整数型

' 输出调试文本 (取数组成员数 (文本数组))
变量循环首 (1, 取数组成员数 (文本数组), 1, count)
节点.加入属性 (文本数组 [count], “”)
变量循环尾 ()
节点.取全部属性名 (文本数组)
' 输出调试文本 (取数组成员数 (文本数组))

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

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .子程序 数组模块_去重复4_节点法, , 公开<br /> .参数 文本数组, 文本型, 数组<br /> .局部变量 节点, 节点<br /> .局部变量 count, 整数型<br /> <br /> ' 输出调试文本 (取数组成员数 (文本数组))<br /> .变量循环首 (1, 取数组成员数 (文本数组), 1, count)<br />     节点.加入属性 (文本数组 [count], “”)<br /> .变量循环尾 ()<br /> 节点.取全部属性名 (文本数组)<br /> ' 输出调试文本 (取数组成员数 (文本数组))

模块里也 内置了一个节点法   ，数据大的时候，排序后去重7 速度 是 节点法的五倍的。 大数据才能体现出差别

.版本 2
.支持库 spec

调试模块_创建整数型数组_有重复 (zzz, 100000, 1, 100)  ' 1000000
转换模块_整数型数组转文本型数组 (zzz, aaa)

计时器启动 ()
数组模块_去重复7_排序后对比 (aaa, aaa_结果)
' 数组模块_去重复4_节点法 (aaa)
计时器结束 ()
调试输出 (“===============”)

=====================================
我知道慢在哪了 上面 内置的04，输入和输出，用的都是同一个数组。时间都消耗在把原始大数组清空，换成结果小数组了
你代码用的是两个不同的数组。这就快了，整挺好  学习了

  

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
aaa	文本型
bbb	文本型

变量名	类 型	静态	数组	备 注
jd	节点
m	整数型

计次循环首 (取数组成员数 (aaa), m)
jd.加入属性 (aaa [m], 0)
计次循环尾 ()
jd.取全部属性名 (bbb)

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

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .子程序 子程序1<br /> .参数 aaa, 文本型, 数组<br /> .参数 bbb, 文本型, 数组<br /> .局部变量 jd, 节点<br /> .局部变量 m, 整数型<br /> <br /> .计次循环首 (取数组成员数 (aaa), m)<br /> <br />     jd.加入属性 (aaa [m], 0)<br /> .计次循环尾 ()<br /> jd.取全部属性名 (bbb)

黑咖啡

有这么慢吗？

APPLEUFO

cf2006a 发表于 2025-6-22 22:57
不是有汇编版文本数组去重复的

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
g	文本型		100000
t	整数型
i	整数型
字符长度	整数型
找到位置	整数型
写入位置	整数型
结果	文本型
调试	文本型
ss	文本型		0
新数组长度	整数型
新数组	文本型		0

计次循环首 (100000, i)
g [i] ＝ 到文本 (取随机数 (1, 1000))
计次循环尾 ()
t ＝ 取启动时间 ()
' 结果 ＝ _数组叠加_去重复 (g, 5, 新数组)
' 新数组长度 ＝ _取文本长度_ASM_地址 (结果) ＼ 5
. ' 计次循环首 (新数组长度, i)
' 加入成员 (新数组, _取定长文本 (结果, i × 5, 5))
. ' 计次循环尾 ()
数组模块_去重复7_排序后对比 (g, 新数组)
调试输出 (数组模块_验证是否无重复数据 (新数组))
调试输出 (取启动时间 () － t, 取数组成员数 (新数组), )

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 g, 文本型, , "100000"<br /> .局部变量 t, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 字符长度, 整数型<br /> .局部变量 找到位置, 整数型<br /> .局部变量 写入位置, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 调试, 文本型<br /> .局部变量 ss, 文本型, , "0"<br /> .局部变量 新数组长度, 整数型<br /> .局部变量 新数组, 文本型, , "0"<br /> <br /> .计次循环首 (100000, i)<br />     g <i> ＝ 到文本 (取随机数 (1, 1000))<br /> .计次循环尾 ()<br /> t ＝ 取启动时间 ()<br /> <br /> <br /> ' 结果 ＝ _数组叠加_去重复 (g, 5, 新数组)<br /> ' 新数组长度 ＝ _取文本长度_ASM_地址 (结果) ＼ 5<br /> .' 计次循环首 (新数组长度, i)<br />     ' 加入成员 (新数组, _取定长文本 (结果, i × 5, 5))<br /> .' 计次循环尾 ()<br /> <br /> 数组模块_去重复7_排序后对比 (g, 新数组)<br /> <br /> 调试输出 (数组模块_验证是否无重复数据 (新数组))<br /> 调试输出 (取启动时间 () － t, 取数组成员数 (新数组), )

https://bbs.125.la/forum.php?mod ... B%E9%87%8D%E5%A4%8D
https://bbs.125.la/forum.php?mod ... E5%A4%8D&page=1
你18年两个帖子  结果是错的      数组成员数应该是1000    不知道你的为啥总是923   924
我前面发了个 前面帖子附件太多审核去了

APPLEUFO

cf2006a 发表于 2025-6-22 23:37
https://share.weiyun.com/xyw1wBMg

下载到了  倒是没看到 去重复的代码  

APPLEUFO

cf2006a 发表于 2025-6-22 22:57
不是有汇编版文本数组去重复的

https://bbs.125.la/forum.php?mod ... B%E9%87%8D%E5%A4%8D
我找到一个这个  ，只能用于整数类型的文本去重复？ 结果的答案还是错的~~、

到文本 (取随机数 (1, 1000))   答案应该是数组成员在1000以下，差很小
     不知道为啥答案等于923

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
g	文本型		100000
t	整数型
i	整数型
字符长度	整数型
找到位置	整数型
写入位置	整数型
结果	文本型
调试	文本型
ss	文本型		0

计次循环首 (100000, i)
g [i] ＝ 到文本 (取随机数 (1, 1000))
计次循环尾 ()
t ＝ 取启动时间 ()
数组模块_去重复7_排序后对比 (g, ss)
调试输出 (取启动时间 () － t, 取数组成员数 (ss))
调试输出 (数组模块_验证是否无重复数据 (ss))
结束 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 g, 文本型, , "100000"<br /> .局部变量 t, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 字符长度, 整数型<br /> .局部变量 找到位置, 整数型<br /> .局部变量 写入位置, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 调试, 文本型<br /> .局部变量 ss, 文本型, , "0"<br /> <br /> .计次循环首 (100000, i)<br />     g <i> ＝ 到文本 (取随机数 (1, 1000))<br /> .计次循环尾 ()<br /> <br /> t ＝ 取启动时间 ()<br /> <br /> 数组模块_去重复7_排序后对比 (g, ss)<br /> <br /> 调试输出 (取启动时间 () － t, 取数组成员数 (ss))<br /> 调试输出 (数组模块_验证是否无重复数据 (ss))<br /> 结束 ()

  

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

变量名	类 型	静态	数组	备 注
n1	整数型
m1	整数型
局变_临时	文本型

计次循环首 (取数组成员数 (参数_文本) － 1, n1)
局变_临时 ＝ 参数_文本 [n1]
变量循环首 (n1 ＋ 1, 取数组成员数 (参数_文本), 1, m1)
如果 (局变_临时 ＝ 参数_文本 [m1])
返回 (假)



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

.版本 2<br /> <br /> .子程序 数组模块_验证是否无重复数据, 逻辑型, 公开, 有 返回假  否则真 <br /> .参数 参数_文本, 文本型, 数组<br /> .局部变量 n1, 整数型<br /> .局部变量 m1, 整数型<br /> .局部变量 局变_临时, 文本型<br /> <br /> <br /> .计次循环首 (取数组成员数 (参数_文本) － 1, n1)<br /> <br />     局变_临时 ＝ 参数_文本 [n1]<br /> <br />     .变量循环首 (n1 ＋ 1, 取数组成员数 (参数_文本), 1, m1)<br /> <br />         .如果 (局变_临时 ＝ 参数_文本 [m1])<br />             返回 (假)<br />         .否则<br /> <br /> <br />         .如果结束<br /> <br />     .变量循环尾 ()<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (真)

cf2006a

APPLEUFO 发表于 2025-6-22 23:29
有地址么？我看看快多少

https://share.weiyun.com/xyw1wBMg

APPLEUFO

cf2006a 发表于 2025-6-22 22:57
不是有汇编版文本数组去重复的

有地址么？我看看快多少

cf2006a

不是有汇编版文本数组去重复的