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

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

好像挂了两张图
内存占用



一亿数组的速度

SAHI9099

那个。。原型发错图了，上边那个并不能正常使用

  

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

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

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

计次循环尾 ()
重定义数组 (接收数组, 真, 数组上限)
返回 (真)

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

SAHI9099

SAHI9099 发表于 2019-7-29 12:08
那个。。原型发错图了，上边那个并不能正常使用
[e=1].版本 2

帖子已经修改过了，这个怎么删掉啊

SAHI9099

这是另一个思路，通用型的。不过效率嘛就有点GG了，占用时间的是给bin连续赋值

  

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

变量名	类 型	静态	数组	备 注
bin	字节集
temp	字节集
i	整数型
k	整数型

计次循环首 (取数组成员数 (数组), i)
temp ＝ { 0 } ＋ 到字节集 (数组 [i]) ＋ { 0 }
如果真 (寻找字节集 (bin, temp, ) ＝ -1)
bin ＝ bin ＋ temp
k ＝ k ＋ 1
数组 [k] ＝ 数组 [i]

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

.版本 2<br /> <br /> .子程序 数组去重2, 整数型<br /> .参数 数组, 整数型, 参考 数组<br /> .局部变量 bin, 字节集<br /> .局部变量 temp, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), i)<br />     temp ＝ { 0 } ＋ 到字节集 (数组 <i>) ＋ { 0 }<br />     .如果真 (寻找字节集 (bin, temp, ) ＝ -1)<br />         bin ＝ bin ＋ temp<br />         k ＝ k ＋ 1<br />         数组 [k] ＝ 数组 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 重定义数组 (数组, 真, k)<br /> 返回 (0)

sampo

什么情况？这么多楼那个是真的？

消除某种情绪

打死不做白嫖党！

huaidan2015

so 到底下哪个？？

kyo9766

各位看官，可能都有点懵了。。。

血舞神州

谢谢分享·