折腾了一个相当高效的数组去重算法

SAHI9099

原型是不带零的无符号整数型去重算法，原理超简单也因为原理的问题，限制了数组元素的范围必须在1~2147483647之间，并且需要大致知道元素的最大值

1亿随机数组的去重速度


思路完全是我自己想出来的，经过了五次调整和改进。。
所以我刚才又改了一次，那么现在是第六次，优化了内存占用

算法原型

  

子程序名	返回值类型	公开	备 注
数组去重	逻辑型
参数名	类 型	参考	可空	数组	备 注
数组	整数型
最大值	整数型				1~2147483647

变量名	类 型	静态	数组	备 注
arr	整数型		0
i	整数型
k	整数型

如果真 (是否为空 (最大值))
最大值 ＝ 2147483647
如果 (最大值 ＜ 1 或 最大值 ＞ 2147483647)
返回 (假)
重定义数组 (arr, 假, 最大值)
计次循环首 (取数组成员数 (数组), i)
如果真 (arr [数组 [i]] ＝ 0)
arr [数组 [i]] ＝ 1
k ＝ k ＋ 1
数组 [k] ＝ 数组 [i]

计次循环尾 ()[/i][/i][/i][i][i][i]重定义数组 (数组, 真, k)[/i][/i][/i][i][i][i]返回 (真)

.版本 2<br /> <br /> .子程序 数组去重, 逻辑型<br /> .参数 数组, 整数型, 参考 数组<br /> .参数 最大值, 整数型, 可空, 1~2147483647<br /> .局部变量 arr, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> <br /> .如果真 (是否为空 (最大值))<br />     最大值 ＝ 2147483647<br /> .如果真结束<br /> .如果 (最大值 ＜ 1 或 最大值 ＞ 2147483647)<br />     返回 (假)<br /> .否则<br />     重定义数组 (arr, 假, 最大值)<br /> .如果结束<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (arr [数组 <i>] ＝ 0)<br />         arr [数组 <i>] ＝ 1<br />         k ＝ k ＋ 1<br />         数组 [k] ＝ 数组 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()</i></i></i><i><i><i>重定义数组 (数组, 真, k)</i></i></i><i><i><i>返回 (真)

萌新不会发帖大佬多多担待



补充内容 (2019-7-30 10:38):
对了，函数里的arr变量可以改为字节型数组，内存占用比整数型数组要小

补充内容 (2019-7-30 10:53):
还有利用原理的特性可以直接给下边接排序 大概是 计次循环 取数组成员数arr 然后判断为1则k++再把i写到原数组的k位置

SAHI9099

第七次改进，嗯。。再次优化内存占用问题这下就可以快速去重类似于手机号的长整数型数组了

  

子程序名	返回值类型	公开	备 注
数组去重	逻辑型
参数名	类 型	参考	可空	数组	备 注
数组	整数型

变量名	类 型	静态	数组	备 注
i	整数型
k	整数型
arr	字节型		0
min	整数型
max	整数型

如果 (取数组成员数 (数组) ＝ 0)
返回 (假)
连续赋值 (数组 [1], min, max)
计次循环首 (取数组成员数 (数组), i)
如果真 (数组 [i] ＜ min)
min ＝ 数组 [i]
如果真 (数组 [i] ＞ max)
max ＝ 数组 [i]

计次循环尾 ()
如果真 (max － min ＞ 1000000000)
返回 (假)
min ＝ min － 1
重定义数组 (arr, 假, max － min)
计次循环首 (取数组成员数 (数组), i)
如果真 (arr [数组 [i] － min] ＝ 0)
arr [数组 [i] － min] ＝ 1
k ＝ k ＋ 1
数组 [k] ＝ 数组 [i]

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

.版本 2<br /> <br /> .子程序 数组去重, 逻辑型<br /> .参数 数组, 整数型, 参考 数组<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 arr, 字节型, , "0"<br /> .局部变量 min, 整数型<br /> .局部变量 max, 整数型<br /> <br /> .如果 (取数组成员数 (数组) ＝ 0)<br />     返回 (假)<br /> .否则<br />     连续赋值 (数组 [1], min, max)<br /> .如果结束<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (数组 <i> ＜ min)<br />         min ＝ 数组 <i><br />     .如果真结束<br />     .如果真 (数组 <i> ＞ max)<br />         max ＝ 数组 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (max － min ＞ 1000000000)<br />     返回 (假)<br /> .如果真结束<br /> min ＝ min － 1<br /> 重定义数组 (arr, 假, max － min)<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (arr [数组 <i> － min] ＝ 0)<br />         arr [数组 <i> － min] ＝ 1<br />         k ＝ k ＋ 1<br />         数组 [k] ＝ 数组 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 重定义数组 (数组, 真, k)<br /> 返回 (真)

SAHI9099

沧海生烟 发表于 2019-8-1 18:23
你这个测试时 第一次慢  第二次以后，要比第一次快6-7倍？这是什么情况

这个算法是我给我的软件量身定做的感觉不错就发上来了，具体应用场景还是要看你的数组长啥样，比如{1，99999999，99999999，10000000}这种的你完全可以使用别的算法，使用上述算法就是浪费内存了

283688410

好东西要支持，谢谢楼主分享

沧海生烟

第一次比精易的 慢3倍左右  第二次后的每次，比精易的快2倍多点

沧海生烟

你这个测试时 第一次慢  第二次以后，要比第一次快6-7倍？这是什么情况

毛超

感谢分享！！！！！！！！！！

名字没想好

wuqingg

支持开源，感谢分享！

1051496412

原理类似桶排序，感谢分享

外星星人

感谢分享