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

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 /> 返回 (真)

血舞神州

谢谢分享·

kyo9766

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

huaidan2015

so 到底下哪个？？

消除某种情绪

打死不做白嫖党！

sampo

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

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)

SAHI9099

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

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

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

好像挂了两张图
内存占用



一亿数组的速度