易语言 BitMap算法实现字节型数组(无返回值)与字节集数据(返回字节集) 非排序去除重复

CNWTEPRG

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 置随机数种子 ()
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 数组, 字节型, , "0"
    
14. .局部变量 计数, 整数型
    
15. .局部变量 返回值, 字节型, , "0"
    
16. .局部变量 字节集, 字节集
    
17. .局部变量 长度, 整数型
    
18. 
    
19. 长度 ＝ 32
    
20. 重定义数组 (数组, 假, 长度)
    
21. 字节集 ＝ 取空白字节集 (长度)
    
22. .计次循环首 (长度, 计数)
    
23.     数组 [计数] ＝ 取随机数 (, )
    
24.     字节集 [计数] ＝ 数组 [计数]
    
25. .计次循环尾 ()
    
26. 调试输出 (数组)
    
27. 字节型数组_去重_BITMAP (数组, 返回值)
    
28. 调试输出 (返回值)
    
29. 调试输出 (字节集)
    
30. 调试输出 (字节集_去重_BITMAP (字节集))
    
31. 
    
32. 
    
33. .子程序 字节型数组_去重_BITMAP, , 公开
    
34. .参数 数组, 字节型, 数组
    
35. .参数 返回值, 字节型, 参考 数组
    
36. .局部变量 位映射表, 字节集
    
37. .局部变量 计数, 整数型
    
38. .局部变量 Q, 字节型
    
39. .局部变量 成员数, 整数型
    
40. 
    
41. 成员数 ＝ 取数组成员数 (数组)
    
42. .如果真 (成员数 ≤ 0)
    
43.     返回 ()
    
44. .如果真结束
    
45. 位映射表 ＝ 取空白字节集 (256)
    
46. 清除数组 (返回值)
    
47. .计次循环首 (成员数, 计数)
    
48.     .如果真 (位映射表 [数组 [计数] ＋ 1] ＝ 0)
    
49.         Q ＝ Q ＋ 1
    
50.         位映射表 [数组 [计数] ＋ 1] ＝ 1
    
51.         加入成员 (返回值, 数组 [计数])
    
52.         .如果真 (Q ＝ 0)
    
53.             跳出循环 ()
    
54.         .如果真结束
    
55. 
    
56.     .如果真结束
    
57. 
    
58. .计次循环尾 ()
    
59. 
    
60. 
    
61. .子程序 字节集_去重_BITMAP, 字节集
    
62. .参数 字节集, 字节集
    
63. .局部变量 返回值, 字节型, , "0"
    
64. .局部变量 长度, 整数型
    
65. .局部变量 位映射表, 字节集
    
66. .局部变量 计数, 整数型
    
67. .局部变量 Q, 字节型
    
68. 
    
69. 长度 ＝ 取字节集长度 (字节集)
    
70. .如果真 (长度 ≤ 0)
    
71.     返回 ({  })
    
72. .如果真结束
    
73. 清除数组 (返回值)
    
74. 位映射表 ＝ 取空白字节集 (256)
    
75. .计次循环首 (长度, 计数)
    
76.     .如果真 (位映射表 [字节集 [计数] ＋ 1] ＝ 0)
    
77.         Q ＝ Q ＋ 1
    
78.         位映射表 [字节集 [计数] ＋ 1] ＝ 1
    
79.         加入成员 (返回值, 字节集 [计数])
    
80.         .如果真 (Q ＝ 0)
    
81.             跳出循环 ()
    
82.         .如果真结束
    
83. 
    
84.     .如果真结束
    
85. 
    
86. .计次循环尾 ()
    
87. 返回 (到字节集 (返回值))
    

复制代码