易语言大数据去重复源码 bitmap

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

.子程序 _按钮1_被单击

启动线程 (&子程序1, , )

.子程序 子程序1
.局部变量 a, 整数型, , "10000000"
.局部变量 b, 逻辑型, , "0"
.局部变量 i, 整数型
.局部变量 下标, 整数型
.局部变量 数量, 整数型
.局部变量 s, 整数型
.局部变量 c, 整数型, , "0"
.局部变量 t, 整数型
.局部变量 哈希, 哈希表类zy
.局部变量 k, 整数型
.局部变量 t1, 双精度小数型
.局部变量 t2, 双精度小数型

.计次循环首 (10000000, i)
    a [i] ＝ i
.计次循环尾 ()
加入成员 (a, 101)
数组排序 (a, )
重定义数组 (c, 假, 取数组下标 (a, ))
重定义数组 (b, 假, a [取数组下标 (a, )])
调试输出 (取数组下标 (b, ))
数量 ＝ 取数组成员数 (a)
调试输出 (数量)
哈希.创建 (3, 3, , )
t ＝ 取启动时间 ()
.计次循环首 (数量, k)
    哈希.添加 (a [k], 1)
.计次循环尾 ()
t1 ＝ 取启动时间 () － t
t ＝ 取启动时间 ()
.计次循环首 (数量, s)
    ' 调试输出 (a [s])
    .如果 (b [a [s]] ＝ 假)
        b [a [s]] ＝ 真
        c [s] ＝ a [s]
    .否则

    .如果结束

.计次循环尾 ()
t2 ＝ 取启动时间 () － t
信息框 (“1千万数据 哈希表用时：” ＋ 到文本 (t1) ＋ “ bitmap用时：” ＋ 到文本 (t2), 0, , )

@独舞青春