千万级整数型数组去重仅需400ms源码

1. .版本 2
   
2. 
   
3. .子程序 数组_去重复_整数型3, 整数型, 公开, 返回剩余不重复数组的成员数量
   
4. .参数 整数数组, 整数型, 数组, 要去重复的 整数数组
   
5. .局部变量 i, 整数型
   
6. .局部变量 局_参考空间, 整数型, , "0", 空间
   
7. .局部变量 局_最大值, 整数型
   
8. .局部变量 局_最小值, 整数型
   
9. .局部变量 数组长度, 整数型
   
10. .局部变量 a, 整数型
    
11. .局部变量 参数1, 双精度小数型
    
12. 
    
13. ' 不需要用长整数，易语言数组容量应该超不过整数型极限2147483648
    
14. .如果真 (取数组成员数 (整数数组) ＝ 0)
    
15.     返回 (0)
    
16. .如果真结束
    
17. 
    
18. 连续赋值 (整数数组 [1], 局_最大值, 局_最小值)
    
19. .变量循环首 (2, 取数组成员数 (整数数组), 1, i)
    
20.     .如果 (整数数组 <i> ＞ 局_最大值)
    
21.         局_最大值 ＝ 整数数组 <i>
    
22.     .否则
    
23.         .如果真 (整数数组 <i> ＜ 局_最小值)
    
24.             局_最小值 ＝ 整数数组 <i>
    
25.         .如果真结束
    
26. 
    
27.     .如果结束
    
28. 
    
29. .变量循环尾 ()
    
30. 数组长度 ＝ 局_最大值 － 局_最小值 ＋ 1
    
31. 参数1 ＝ 局_最小值 － 1
    
32. ' 开辟空间
    
33. 重定义数组 (局_参考空间, 假, 数组长度)
    
34. .计次循环首 (取数组成员数 (整数数组), i)
    
35.     .如果真 (局_参考空间 [整数数组 <i> － 参数1] ＝ 0)
    
36.         局_参考空间 [整数数组 <i> － 参数1] ＝ 1
    
37.     .如果真结束
    
38. 
    
39. .计次循环尾 ()
    
40. 
    
41. .计次循环首 (取数组成员数 (局_参考空间), i)
    
42.     .如果真 (局_参考空间 <i> ＝ 1)
    
43.         a ＝ a ＋ 1
    
44.         整数数组 [a] ＝ i ＋ 参数1
    
45.     .如果真结束
    
46. 
    
47. .计次循环尾 ()
    
48. 重定义数组 (整数数组, 真, a)
    
49. 返回 (取数组成员数 (整数数组))

复制代码