纯数组去重复1千万3秒1亿30秒，如此类推,不论重复量多少都一样。

yjwfdc · 发表于 2013-5-4 21:05:53

本帖最后由 yjwfdc 于 2013-5-5 13:20 编辑

纯数组去重复1千万3秒1亿30秒，如此类推,不论重复量多少都一样。
如果成员数比较大，不要点显示，显示会很慢很慢的。只点“加入数组”和“去重复”就可以了。

飘逸纯数组去重算法1千万3秒。x.rar (3.52 KB, 下载次数: 710)

一百万成员卡介面0.3秒,一千万成员数组才会卡介面3秒。
这只是原理，使用的时候是应该用线程的。

修改了一下，内存占用少了一半，把排序时间和去重复时间分开显示，时间主要用在排序，1亿排序用了27秒,去重复只需要3秒.
加入一个数组写出模块，写出1千万数组到文件需时约10秒，写出1亿数组需时约100秒。
不好意思，原来那个计错数了，少输出了一个。

不重发付件了，只更新了付件。

补充内容 (2018-8-9 23:09):
是纯数数组去重复，不支持文本，标题打少了一个"数"字。

zeroing · 发表于 2013-5-4 21:07:00

这么牛逼的东西必须拿走

陈小胖 · 发表于 2013-5-4 21:17:25

运行的时候太卡了。。

建议使用命令启动线程

.版本 2
.支持库 EThread
.支持库 commobj

.程序集窗口程序集1
.程序集变量原数组, 整数型, , "0"
.程序集变量结果数组, 整数型, , "0"
.程序集变量成员数, 长整数型
.程序集变量 k, 整数型

.子程序 _加入数组按钮_被单击

启动线程 (&子程序_加入数组, , )

.子程序子程序_加入数组
.局部变量 i, 整数型

成员数＝到数值 (编辑框2.内容)
置随机数种子 (取启动时间 ())
重定义数组 (原数组, 假, 成员数)
.计次循环首 (成员数, i)
原数组 [i] ＝取随机数 (0, 成员数 ÷ 10) × 取随机数 (0, 成员数 ÷ 10) ＋取随机数 (0, 成员数 ÷ 10)
.计次循环尾 ()
信息框 (“成员数” ＋到文本 (成员数), 0, )

.子程序 _显示数组按钮_被单击

启动线程 (&子程序_显示数组, , )

.子程序 _显示按钮_被单击

启动线程 (&子程序_显示, , )

.子程序子程序_显示
.局部变量 i, 整数型
.局部变量快速文本, 快速文本对象

k ＝取启动时间 ()
编辑框1.内容＝ “”
.计次循环首 (取数组成员数 (结果数组), i)
快速文本.添加 (到文本 (结果数组 [i]) ＋ #换行符)
.计次循环尾 ()
编辑框1.内容＝快速文本.取文本 (, )
编辑框1.加入文本 (“快速文本显示用时” ＋到文本 (取启动时间 () － k) ＋ #换行符)

.子程序子程序_显示数组
.局部变量 i, 整数型
.局部变量文件号, 整数型
.局部变量文本, 文本型

k ＝取启动时间 ()
文件号＝打开内存文件 ()
.计次循环首 (成员数, i)
写文本行 (文件号, 原数组 [i])
.计次循环尾 ()
移到文件首 (文件号)
文本＝读入文本 (文件号, )
关闭文件 (文件号)

编辑框1.内容＝文本
编辑框1.加入文本 (“内存文件显示用时” ＋到文本 (取启动时间 () － k) ＋ #换行符)

.子程序 _去重复按钮_被单击

启动线程 (&子程序_去重复, , )

.子程序子程序_去重复
.局部变量成员数, 整数型
.局部变量 i, 长整数型
.局部变量 a, 整数型
.局部变量记录位置, 整数型

k ＝取启动时间 ()
数组排序 (原数组, 真)
成员数＝取数组成员数 (原数组)
重定义数组 (结果数组, 假, 成员数)

i ＝ 0
记录位置＝ 1
.判断循环首 (记录位置 ≤ 成员数)
i ＝ i ＋ 1
结果数组 [i] ＝原数组 [记录位置]
.循环判断首 ()
      记录位置＝记录位置＋ 1
      .如果真 (记录位置＞成员数)
         跳出循环 ()
      .如果真结束

.循环判断尾 (结果数组 [i] ＝原数组 [记录位置])
.判断循环尾 ()

成员数＝ i － 1
重定义数组 (结果数组, 真, 成员数)
编辑框1.加入文本 (“不重复数” ＋到文本 (成员数))
编辑框1.加入文本 (“去重复用时” ＋到文本 (取启动时间 () － k) ＋ #换行符)