精易论坛

标题: 删除数组成员 速度更快的新写法 [打印本页]

---

作者: 笨来无一悟    时间: 2023-8-1 04:22
标题: 删除数组成员 速度更快的新写法


计次循环正序检查和删除数组成员
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14790897
(出处: 精易论坛)
↑受该贴启发 我也尝试一下非常规的玩法用交换变量然后统一删除的写法速度提升明显
数组成员比较多对顺序无感的人 可用交换变量统一删除的写法 减少了挪动次数所以更快

删除成员.png (35.8 KB, 下载次数: 13)

下载附件

2023-8-1 05:43 上传

删除成员.e

2023-8-1 05:43 上传

点击文件名下载附件

下载积分: 精币 -2 枚

7.05 KB, 下载次数: 50, 下载积分: 精币 -2 枚

---

作者: 洋滨    时间: 2023-8-1 04:33
源码呢。。

---

作者: qqmqqg    时间: 2023-8-1 07:52
协议还是填表？

---

作者: 龍貓    时间: 2023-8-1 08:22
大佬真是举一反三，学习一下

---

作者: wuqingg    时间: 2023-8-1 08:32
新技能已get√

---

作者: 一指温柔    时间: 2023-8-1 08:42
感谢分享

---

作者: pipicool    时间: 2023-8-1 09:04
学习一下

---

作者: spldj145    时间: 2023-8-1 09:22
分享是传统美德

---

作者: Suky    时间: 2023-8-1 09:59
正序的本意是在特定需求环境中按原来的顺序逐一检索和删除目标成员，目的并不是单纯的筛选删除

---

作者: Suky    时间: 2023-8-1 10:08

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数组1	整数型	0

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
n	整数型

按钮1.禁止 ＝ 真
计次循环首 (取数组成员数 (数组1), )
n ＝ n ＋ 1
如果真 (数组1 [n] ≥ 10)  ' 数组元素符合条件  引用
' 引用数组成员代码
删除成员 (数组1, n, 1)  ' 用完删除
n ＝ n － 1

计次循环尾 ()
按钮1.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮2_被单击

置随机数种子 ()
加入成员 (数组1, 取随机数 (1, 20))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数组1, 整数型, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> <br /> 按钮1.禁止 ＝ 真<br /> .计次循环首 (取数组成员数 (数组1), )<br />     n ＝ n ＋ 1<br />     .如果真 (数组1 [n] ≥ 10)  ' 数组元素符合条件  引用<br />         ' 引用数组成员代码<br />         删除成员 (数组1, n, 1)  ' 用完删除<br />         n ＝ n － 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 按钮1.禁止 ＝ 假<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 置随机数种子 ()<br /> 加入成员 (数组1, 取随机数 (1, 20))

举个小小的例子，类似这样的应用场景     你要如何应对

---

作者: 风清云游    时间: 2023-8-1 11:00

Suky 发表于 2023-8-1 10:08

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

[/quote][e=4].版本 2

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
数组			0
数组2			0
n
记录下标
记录数量

置随机数种子 ()
计次循环首 (20, )
加入成员 (数组, 取随机数 (1, 20))
计次循环尾 ()
数组2 ＝ 数组
调试输出 (数组)
计次循环首 (取数组成员数 (数组), )
n ＝ n ＋ 1
如果真 (数组 [n] ≥ 10)  ' 数组元素符合条件  引用
' 引用数组成员代码
删除成员 (数组, n, 1)  ' 用完删除
n ＝ n － 1

计次循环尾 ()
调试输出 (数组)
计次循环首 (取数组成员数 (数组2), n)
如果真 (数组2 [n] ＜ 10)
记录下标 ＝ 记录下标 ＋ 1
记录数量 ＝ 记录数量 ＋ 1
数组2 [记录下标] ＝ 数组2 [n]

计次循环尾 ()
重定义数组 (数组2, 真, 记录数量)
调试输出 (数组2)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口</blockquote></div>[e=4].版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 数组, , , "0"<br /> .局部变量 数组2, , , "0"<br /> .局部变量 n<br /> .局部变量 记录下标<br /> .局部变量 记录数量<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (20, )<br />     加入成员 (数组, 取随机数 (1, 20))<br /> .计次循环尾 ()<br /> 数组2 ＝ 数组<br /> 调试输出 (数组)<br /> <br /> .计次循环首 (取数组成员数 (数组), )<br />     n ＝ n ＋ 1<br />     .如果真 (数组 [n] ≥ 10)  ' 数组元素符合条件  引用<br />         ' 引用数组成员代码<br />         删除成员 (数组, n, 1)  ' 用完删除<br />         n ＝ n － 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (数组)<br /> <br /> <br /> .计次循环首 (取数组成员数 (数组2), n)<br />     .如果真 (数组2 [n] ＜ 10)<br />         记录下标 ＝ 记录下标 ＋ 1<br />         记录数量 ＝ 记录数量 ＋ 1<br />         数组2 [记录下标] ＝ 数组2 [n]<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 重定义数组 (数组2, 真, 记录数量)<br /> 调试输出 (数组2)

---

作者: 笨来无一悟    时间: 2023-8-1 11:09
不能打乱顺序这一点没有解决 路过的爷爷奶奶叔叔阿姨哥哥姐姐 看看有没有什么好办法恢复现场

  

子程序名	返回值类型	公开	备 注
删除成员_正序优化

变量名	类 型	静态	数组	备 注
数组	整数型		0
起点	整数型
终点	整数型
已删	整数型

数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 7, 0, 3, 78, 2, 0, 45, 13, 2, 8, 1, 4 }
终点 ＝ 取数组成员数 (数组)
判断循环首 (起点 ＜ 终点)
起点 ＝ 起点 ＋ 1
如果真 (数组 [起点] ＞ 5)
' 引用数组成员代码
交换变量 (数组 [起点], 数组 [已删 ＋ 1])
已删 ＝ 已删 ＋ 1  ' 用完假装删除了 挪动到最前面 循环之内都不会再用到
' 必须从前往后√ 必须速度更快√ 不能另外用多余的数组√ 最关键【不打乱原本的顺序】...×
判断循环尾 ()
删除成员 (数组, 1, 已删)

.版本 2<br /> <br /> .子程序 删除成员_正序优化<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 起点, 整数型<br /> .局部变量 终点, 整数型<br /> .局部变量 已删, 整数型<br /> <br /> 数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 1, 7, 0, 3, 78, 2, 0, 45, 13, 2, 8, 1, 4 }<br /> 终点 ＝ 取数组成员数 (数组)<br /> .判断循环首 (起点 ＜ 终点)<br />     起点 ＝ 起点 ＋ 1<br />     .如果真 (数组 [起点] ＞ 5)<br />         ' 引用数组成员代码<br />         交换变量 (数组 [起点], 数组 [已删 ＋ 1])<br />         已删 ＝ 已删 ＋ 1  ' 用完假装删除了 挪动到最前面 循环之内都不会再用到<br />     .如果真结束<br />     ' 必须从前往后√ 必须速度更快√ 不能另外用多余的数组√ 最关键【不打乱原本的顺序】...×<br /> .判断循环尾 ()<br /> 删除成员 (数组, 1, 已删)

---

作者: 风清云游    时间: 2023-8-1 11:19

笨来无一悟 发表于 2023-8-1 11:09
不能打乱顺序这一点没有解决 路过的爷爷奶奶叔叔阿姨哥哥姐姐 看看有没有什么好办法恢复现场
[e=4 ...

你需要理解 内存 没有删除 这个概念

---

作者: 君九    时间: 2023-8-1 16:43
下来看看

---

作者: z899505cqz    时间: 2023-8-1 21:11
我有个办法不会打乱原本顺序，且速度比优化版的快40倍，比倒序版的快300倍

---

作者: 深圳梦    时间: 2023-8-1 21:31
支持开源~！感谢分享

---

作者: z899505cqz    时间: 2023-8-1 22:54

  

子程序名	返回值类型	公开	备 注
剔除数组中比某值大的成员_汇编	整数型		稳定,返回剔除后的数组成员数
参数名	类 型	参考	可空	数组	备 注
数组	整数型
某值	整数型

置入代码 ({ 139, 69, 8, 139, 0, 141, 120, 8, 139, 247, 139, 72, 4, 141, 20, 136, 141, 82, 4, 139, 93, 12, 57, 214, 127, 16, 139, 14, 57, 217, 127, 5, 137, 15, 141, 127, 4, 141, 118, 4, 235, 236, 41, 199, 131, 239, 8, 193, 239, 2, 199, 0, 1, 0, 0, 0, 137, 120, 4, 139, 199, 139, 229, 93, 194, 8, 0 })
返回 (1)

.版本 2<br /> <br /> .子程序 剔除数组中比某值大的成员_汇编, 整数型, , 稳定,返回剔除后的数组成员数<br /> .参数 数组, 整数型, 数组<br /> .参数 某值, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 141, 120, 8, 139, 247, 139, 72, 4, 141, 20, 136, 141, 82, 4, 139, 93, 12, 57, 214, 127, 16, 139, 14, 57, 217, 127, 5, 137, 15, 141, 127, 4, 141, 118, 4, 235, 236, 41, 199, 131, 239, 8, 193, 239, 2, 199, 0, 1, 0, 0, 0, 137, 120, 4, 139, 199, 139, 229, 93, 194, 8, 0 })<br /> 返回 (1)

赢麻了，不信试试看
快10倍还是有的
你把你测试的代码发上来看看，肯定有问题的

---

作者: 396384183    时间: 2023-8-2 04:42

感谢发布原创作品，精易因你更精彩

---

作者: 396384183    时间: 2023-8-2 04:44

感谢发布原创作品，精易因你更精彩

---

作者: renjianhong48we    时间: 2023-8-2 09:26
感谢分享

---

作者: 光影魔术    时间: 2023-8-2 14:20
感谢分享源码

---

作者: 亿万    时间: 2023-8-2 21:26

支持开源~！感谢分享

---

作者: zhaode2888    时间: 2023-8-3 08:48
感谢分享

---

作者: ruiqin0214    时间: 2023-8-16 14:15


支持开源~！感谢分享

---

作者: 阿尔法全能    时间: 2023-8-29 21:58
        感谢分享，很给力！~

---

作者: duisir    时间: 2023-12-21 20:16
66666666666666666666666666

---

作者: 1934215149    时间: 2023-12-29 23:17
66666666666666666

---

作者: 3641977    时间: 2024-1-23 20:59

---

作者: wolfpack    时间: 2024-5-31 19:54

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4