易语言 BitMap算法短整数型数组非排序去重 (10秒处理1亿数据,比吃尾算法快N百万倍)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 默认数组, 短整数型, , "100000000"
    
14. .局部变量 数组, 短整数型, , "0"
    
15. .局部变量 新算法处理结果, 短整数型, , "0"
    
16. .局部变量 计数, 整数型
    
17. .局部变量 时间, 整数型
    
18. 
    
19. 置随机数种子 ()
    
20. 输出调试文本 (“正在初始化数组...”)
    
21. 时间 ＝ 取启动时间 ()
    
22. .计次循环首 (取数组成员数 (默认数组), 计数)
    
23.     默认数组 [计数] ＝ 取随机数 (, ) × 取随机数 (, )
    
24. .计次循环尾 ()
    
25. 数组 ＝ 默认数组
    
26. 输出调试文本 (“初始化耗时(毫秒):” ＋ 到文本 (取启动时间 () － 时间))
    
27. 输出调试文本 (“正在去重(BitMap算法)”)
    
28. 时间 ＝ 取启动时间 ()
    
29. 短整数型数组_去重_BitMap (数组)
    
30. 输出调试文本 (“BitMap算法耗时(毫秒):” ＋ 到文本 (取启动时间 () － 时间))
    
31. 新算法处理结果 ＝ 数组
    
32. 数组 ＝ 默认数组
    
33. 输出调试文本 (“正在去重(吃尾算法)”)
    
34. 时间 ＝ 取启动时间 ()
    
35. 短整数型数组_去重_吃尾 (数组)
    
36. 输出调试文本 (“吃尾算法耗时(毫秒):” ＋ 到文本 (取启动时间 () － 时间))
    
37. 
    
38. 输出调试文本 (选择 (短整数型数组_等于 (数组, 新算法处理结果), “处理结果一致”, “处理结果不一致”))
    
39. 
    
40. 
    
41. 
    
42. 
    
43. 
    
44. 
    
45. .子程序 短整数型数组_去重_吃尾
    
46. .参数 数组, 短整数型, 参考 数组
    
47. .局部变量 外循环, 整数型
    
48. .局部变量 内循环, 整数型
    
49. 
    
50. .计次循环首 (取数组成员数 (数组), 外循环)
    
51.     .变量循环首 (取数组成员数 (数组), 外循环 ＋ 1, -1, 内循环)
    
52.         .如果真 (数组 [外循环] ＝ 数组 [内循环])
    
53.             删除成员 (数组, 内循环, )
    
54. 
    
55.         .如果真结束
    
56. 
    
57.     .变量循环尾 ()
    
58. .计次循环尾 ()
    
59. 
    
60. 
    
61. .子程序 短整数型数组_去重_BitMap, , 公开
    
62. .参数 数组, 短整数型, 参考 数组
    
63. .局部变量 位映射表, 字节型, , "65536"
    
64. .局部变量 计数, 整数型
    
65. .局部变量 索引, 整数型
    
66. .局部变量 数组副本, 短整数型, , "0"
    
67. 
    
68. .计次循环首 (取数组成员数 (数组), 计数)
    
69.     索引 ＝ 短整数处理 (数组 [计数])
    
70.     .如果真 (位映射表 [索引] ＝ 0)
    
71.         加入成员 (数组副本, 数组 [计数])
    
72.         位映射表 [索引] ＝ 1
    
73.         到循环尾 ()
    
74.     .如果真结束
    
75. 
    
76. .计次循环尾 ()
    
77. 数组 ＝ 数组副本
    
78. 
    
79. 
    
80. 
    
81. .子程序 短整数处理, 整数型, , 短整数(-32768~32767)到无符号整数(0~65535)并加1
    
82. .参数 短整数, 短整数型
    
83. 
    
84. 置入代码 ({ 102, 139, 69, 8, 15, 183, 192, 64, 201, 194, 4, 0 })
    
85. ' mov ax,[ebp+8]
    
86. ' movzx eax,ax
    
87. ' inc eax
    
88. ' leave
    
89. ' retn 4
    
90. 返回 (0)
    
91. 
    
92. .子程序 短整数型数组_等于, 逻辑型
    
93. .参数 数组A, 短整数型, 数组
    
94. .参数 数组B, 短整数型, 数组
    
95. .局部变量 成员数, 整数型
    
96. .局部变量 计数, 整数型
    
97. 
    
98. 成员数 ＝ 取数组成员数 (数组A)
    
99. .如果真 (成员数 ≠ 取数组成员数 (数组B))
    
100.     返回 (假)
     
101. .如果真结束
     
102. .计次循环首 (成员数, 计数)
     
103.     .如果真 (数组A [计数] ≠ 数组B [计数])
     
104.         返回 (假)
     
105.     .如果真结束
     
106. 
     
107. .计次循环尾 ()
     
108. 返回 (真)
     
109. 
     

复制代码

笔芯

来看看是咋搞的

1心1亿

等于2G和5G的区别