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

凌哥

明天自然醒 发表于 2023-1-30 23:09
.版本 2

.子程序 ASM_加, 整数型, , 返回两个整数的相加值

快是肯定会快的，毕竟一个是浮点 另一个是整数，而且都要call，测试没差别的话可能是你用的计时函数精度不高，尝试使用 QueryPerformanceCounter÷(QueryPerformanceFrequency÷1000)

小小小小鸟89

万一整数数组里有个很大的值，比如就3个成员，[2的30次方，1, 10]，这样估计会直接内存分配失败吧，感觉用数组里的最大值来确定临时数组长度，不太可取，当然如果提前知道数组里最大值最小值范围，是可以的

明天自然醒

凌哥 发表于 2023-1-30 22:45
整数数组 [a] ＝ i ＋ 参数1
局_参考空间 [整数数组  － 参数1] ＝ 1
这两行的加法和减法运算可以用汇编add ...

.版本 2

.子程序 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)


我用的这两个，测试没有差别。。甚至还慢一点

凌哥

整数数组 [a] ＝ i ＋ 参数1
局_参考空间 [整数数组 [i] － 参数1] ＝ 1
这两行的加法和减法运算可以用汇编add sub子程序替代，易语言这么写默认是用浮点运算的。替换后速度还会提升

SoloCat

随便调侃一下。不要介意。

SoloCat

易语言缺的是这点速度吗。。。缺的是稳定的库。

明天自然醒

  

子程序名	返回值类型	公开	备 注
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)