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

明天自然醒

  

子程序名	返回值类型	公开	备 注
数组_去重复_整数型2	整数型		返回剩余不重复数组的成员数量
参数名	类 型	参考	可空	数组	备 注
整数数组	整数型				要去重复的 整数数组

变量名	类 型	静态	数组	备 注
i	整数型
局_参考空间	整数型		0	空间
局_最大值	整数型
局_最小值	整数型
数组长度	整数型
a	整数型
参数1	双精度小数型

' 不需要用长整数，易语言数组容量应该超不过整数型极限2147483648
如果真 (取数组成员数 (整数数组) ＝ 0)
返回 (0)

连续赋值 (整数数组 [1], 局_最大值, 局_最小值)
变量循环首 (2, 取数组成员数 (整数数组), 1, i)
如果 (整数数组 [i] ＞ 局_最大值)
局_最大值 ＝ 整数数组 [i]



如果真 (整数数组 [i] ＜ 局_最小值)
局_最小值 ＝ 整数数组 [i]


变量循环尾 ()
数组长度 ＝ 局_最大值 － 局_最小值 ＋ 1
参数1 ＝ 局_最小值 － 1
' 开辟空间
重定义数组 (局_参考空间, 假, 数组长度)
计次循环首 (取数组成员数 (整数数组), i)
局_参考空间 [整数数组 [i] － 参数1] ＝ 1
计次循环尾 ()
计次循环首 (取数组成员数 (局_参考空间), i)
如果真 (局_参考空间 [i] ＝ 1)
a ＝ a ＋ 1
整数数组 [a] ＝ i ＋ 参数1

计次循环尾 ()
重定义数组 (整数数组, 真, a)
返回 (取数组成员数 (整数数组))

.版本 2<br /> <br /> <br /> <br /> .子程序 数组_去重复_整数型2, 整数型, 公开, 返回剩余不重复数组的成员数量<br /> <br /> .参数 整数数组, 整数型, 数组, 要去重复的 整数数组<br /> <br /> .局部变量 i, 整数型<br /> <br /> .局部变量 局_参考空间, 整数型, , "0", 空间<br /> <br /> .局部变量 局_最大值, 整数型<br /> <br /> .局部变量 局_最小值, 整数型<br /> <br /> .局部变量 数组长度, 整数型<br /> <br /> .局部变量 a, 整数型<br /> <br /> .局部变量 参数1, 双精度小数型<br /> <br /> <br /> <br /> ' 不需要用长整数，易语言数组容量应该超不过整数型极限2147483648<br /> <br /> .如果真 (取数组成员数 (整数数组) ＝ 0)<br /> <br />     返回 (0)<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> 连续赋值 (整数数组 [1], 局_最大值, 局_最小值)<br /> <br /> .变量循环首 (2, 取数组成员数 (整数数组), 1, i)<br /> <br />     .如果 (整数数组 <i> ＞ 局_最大值)<br /> <br />         局_最大值 ＝ 整数数组 <i><br /> <br />     .否则<br /> <br />         .如果真 (整数数组 <i> ＜ 局_最小值)<br /> <br />             局_最小值 ＝ 整数数组 <i><br /> <br />         .如果真结束<br /> <br /> <br /> <br />     .如果结束<br /> <br /> <br /> <br /> .变量循环尾 ()<br /> <br /> 数组长度 ＝ 局_最大值 － 局_最小值 ＋ 1<br /> <br /> 参数1 ＝ 局_最小值 － 1<br /> <br /> ' 开辟空间<br /> <br /> 重定义数组 (局_参考空间, 假, 数组长度)<br /> <br /> .计次循环首 (取数组成员数 (整数数组), i)<br /> <br />     局_参考空间 [整数数组 <i> － 参数1] ＝ 1<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .计次循环首 (取数组成员数 (局_参考空间), i)<br /> <br />     .如果真 (局_参考空间 <i> ＝ 1)<br /> <br />         a ＝ a ＋ 1<br /> <br />         整数数组 [a] ＝ i ＋ 参数1<br /> <br />     .如果真结束<br /> <br /> <br /> <br /> .计次循环尾 ()<br /> <br /> 重定义数组 (整数数组, 真, a)<br /> <br /> 返回 (取数组成员数 (整数数组))

明天自然醒

  

子程序名	返回值类型	公开	备 注
ASM_加	整数型		返回两个整数的相加值
参数名	类 型	参考	可空	数组	备 注
加数1	整数型
加数2	整数型

置入代码 ({ 139, 69, 8, 3, 69, 12, 201, 194, 8, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
ASM_减	整数型		返回两个整数的相减值,
参数名	类 型	参考	可空	数组	备 注
被减数	整数型
减数	整数型

置入代码 ({ 139, 69, 8, 43, 69, 12, 201, 194, 8, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
数组_去重复_整数型5	整数型		返回剩余不重复数组的成员数量
参数名	类 型	参考	可空	数组	备 注
整数数组	整数型				要去重复的 整数数组

变量名	类 型	静态	数组	备 注
i	整数型
局_参考空间	逻辑型		0	空间
局_最大值	整数型
局_最小值	整数型
数组长度	整数型
a	整数型
参数1	双精度小数型

' 不需要用长整数，易语言数组容量应该超不过整数型极限2147483648
如果真 (取数组成员数 (整数数组) ＝ 0)
返回 (0)

连续赋值 (整数数组 [1], 局_最大值, 局_最小值)
变量循环首 (2, 取数组成员数 (整数数组), 1, i)
如果 (整数数组 [i] ＞ 局_最大值)
局_最大值 ＝ 整数数组 [i]
如果真 (整数数组 [i] ＜ 局_最小值)
局_最小值 ＝ 整数数组 [i]


变量循环尾 ()
数组长度 ＝ 局_最大值 － 局_最小值 ＋ 1
参数1 ＝ 局_最小值 － 1
' 开辟空间
重定义数组 (局_参考空间, 假, 数组长度)
计次循环首 (取数组成员数 (整数数组), i)
如果真 (局_参考空间 [整数数组 [i] － 参数1] ＝ 假)
局_参考空间 [ASM_减 (整数数组 [i], 参数1)] ＝ 真

计次循环尾 ()
计次循环首 (取数组成员数 (局_参考空间), i)
如果真 (局_参考空间 [i])
a ＝ ASM_加 (a, 1)
整数数组 [a] ＝ ASM_加 (i, 参数1)

计次循环尾 ()
重定义数组 (整数数组, 真, a)
返回 (a)

.版本 2<br /> <br /> .子程序 ASM_加, 整数型, , 返回两个整数的相加值<br /> .参数 加数1, 整数型<br /> .参数 加数2, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 3, 69, 12, 201, 194, 8, 0 })<br /> 返回 (0)<br /> <br /> .子程序 ASM_减, 整数型, , 返回两个整数的相减值,<br /> .参数 被减数, 整数型<br /> .参数 减数, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 43, 69, 12, 201, 194, 8, 0 })<br /> 返回 (0)<br /> <br /> .子程序 数组_去重复_整数型5, 整数型, 公开, 返回剩余不重复数组的成员数量<br /> .参数 整数数组, 整数型, 数组, 要去重复的 整数数组<br /> .局部变量 i, 整数型<br /> .局部变量 局_参考空间, 逻辑型, , "0", 空间<br /> .局部变量 局_最大值, 整数型<br /> .局部变量 局_最小值, 整数型<br /> .局部变量 数组长度, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 参数1, 双精度小数型<br /> <br /> ' 不需要用长整数，易语言数组容量应该超不过整数型极限2147483648<br /> .如果真 (取数组成员数 (整数数组) ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> <br /> 连续赋值 (整数数组 [1], 局_最大值, 局_最小值)<br /> .变量循环首 (2, 取数组成员数 (整数数组), 1, i)<br />     .如果 (整数数组 <i> ＞ 局_最大值)<br />         局_最大值 ＝ 整数数组 <i><br />     .否则<br />         .如果真 (整数数组 <i> ＜ 局_最小值)<br />             局_最小值 ＝ 整数数组 <i><br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> 数组长度 ＝ 局_最大值 － 局_最小值 ＋ 1<br /> 参数1 ＝ 局_最小值 － 1<br /> ' 开辟空间<br /> 重定义数组 (局_参考空间, 假, 数组长度)<br /> .计次循环首 (取数组成员数 (整数数组), i)<br />     .如果真 (局_参考空间 [整数数组 <i> － 参数1] ＝ 假)<br />         局_参考空间 [ASM_减 (整数数组 <i>, 参数1)] ＝ 真<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (局_参考空间), i)<br />     .如果真 (局_参考空间 <i>)<br />         a ＝ ASM_加 (a, 1)<br />         整数数组 [a] ＝ ASM_加 (i, 参数1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 重定义数组 (整数数组, 真, a)<br /> 返回 (a)

なす随风ぬね

支持开源~！感谢分享

kanhaiyouyue

老板什么时候出一个千万级的文本出重，也是这个效率

miku2033

支持开源~！感谢分享

kanhaiyouyue

再搞个文本型的就牛逼了

tjzoo111

明天自然醒 发表于 2023-2-1 19:52
前面的看懂了，后面的还差点，为啥跟【2的10-1次】方位或

10 在  整数数组[1]     8 也在 整数数组[1]   所以叠加   这是为什么 位或若是 8  就是   1<<(8-1)

1<<(8-1)  这个就是   00000000    00000000   00000000  10000000   
8在二进制的位置   然后 放在数组[1]里面


用汇编的位运算 比易的快点

值得注意的是  
00000000    00000000   00000008  76543210
00000000    00000000   00000000  87654321
00000000    00000000   00000000  10000000

明天自然醒

tjzoo111 发表于 2023-2-1 18:58
比如  10 写到  二进制里面    ;二进制做成位图    就是有 行 和 列  方便计算     根据寄存器大小弄成 32 ...

前面的看懂了，后面的还差点，为啥跟【2的10-1次】方位或

tjzoo111

明天自然醒 发表于 2023-2-1 13:23
是的，我一开始想置位操作，但不知道咋弄

比如  10 写到  二进制里面    ;二进制做成位图    就是有 行 和 列  方便计算     根据寄存器大小弄成 32列 刚好一个整数宽 4字节   (就创建个 整数数组 方便写入01)
1)10在第几行    10/32 取整数       位运算是 10 >>5  确定是    第0行
2)10在第几列    10%32 余数        位运算 10 & 0x11111  确定是  10列
3)在0行10列 写个1
10在 整数数组[1]  行的位置;   
整数数组[1]=整数数组[1]   |   2的10-1次方    (2的10-1次方   写成位运算是    1<<(10-1))
按这个思路试试

396384183

感谢分享

shj0205

感谢分享！