能减少多少运行时间

woyao2991314

现运行时长
win7系统 E3 1275 30 秒一轮
win7系统 i7 7700k 25秒一轮

qawsedzz002

啥意思？没看懂

woyao2991314

qawsedzz002 发表于 2025-4-8 18:09
啥意思？没看懂

减少代码运行时间，提高效率

算法艺术家

bbs.125.la/forum.php?mod=viewthread&tid=14829819&highlight  用这个能快不少

笨来无一悟

随便瞄了一眼 保守估计 可以提速20倍以上

woyao2991314

笨来无一悟 发表于 2025-4-8 18:34
随便瞄了一眼 保守估计 可以提速20倍以上

帮整下！你说多少币

samll88

我优化了一下,你看看是不是这个意思
随机数.e (15.59 KB, 下载次数: 3)

2025-4-8 19:40 上传

点击文件名下载附件

woyao2991314

woyao2991314 发表于 2025-4-8 19:25
帮整下！你说多少币

数组 成员变换的，分割内容来自，常量里的数据 运行一次换一次不同的组合，不固定取几个成员 5个或6个，数组指定固定只有5个，如果6个成员，就这么判断了一下取1组的成员，这的确可以优化一下，常量里直接加进去第6位加个1

woyao2991314

samll88 发表于 2025-4-8 19:41
我优化了一下,你看看是不是这个意思

啥东东完全不一样！！！

maryma

优化说明：

• 封装重复代码：将分割文本并转换为整数数组的逻辑封装到 分割文本并转换 子程序中，将获取数组号的逻辑封装到 获取数组号 子程序中，将获取和数的逻辑封装到 获取和数 子程序中，减少代码重复。
• 提前进行边界检查：在 获取和数 子程序中，对 成员号 进行边界检查，避免访问越界。
• 减少内存分配：在 分割文本并转换 子程序中，使用 重定义数组 一次性分配足够的内存，避免在循环中频繁使用 加入成员 函数。
• 优化循环条件：将 判断循环首 (真) 改为 判断循环首 (循环次数 ＜ 67277)，避免不必要的循环判断。
  

通过这些优化，可以减少不必要的计算和内存分配，电脑和你不一样，不知是否减少了运行时间？

  

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

变量名	类 型	静态	数组	备 注
输入组件	文本型		9
分割后数组	文本型		9
整数数组	整数型		9
数组	文本型		0
成员	文本型		0
运行时间	整数型
循环常量	整数型
循环次数	整数型
数据总和	整数型
i	整数型
第几位	整数型
对数组号	整数型
对成员号	整数型

' 初始化输入组件内容
输入组件 [1] ＝ q1.内容
输入组件 [2] ＝ q2.内容
输入组件 [3] ＝ q3.内容
输入组件 [4] ＝ q4.内容
输入组件 [5] ＝ q5.内容
输入组件 [6] ＝ q6.内容
输入组件 [7] ＝ q7.内容
输入组件 [8] ＝ q8.内容
输入组件 [9] ＝ q9.内容
' 分割文本并转换为整数数组
分割文本并转换 (输入组件, 分割后数组, 整数数组)
计次循环首 (2, 循环常量)
运行时间 ＝ 取启动时间 ()
文本_逐字分割 (指定数组 (), 数组)
循环次数 ＝ 0
判断循环首 (循环次数 ＜ 67277)
循环次数 ＝ 循环次数 ＋ 1
文本_逐字分割 (指定成员 (), 成员)
数据总和 ＝ 0
计次循环首 (200, i)
计次循环首 (取数组成员数 (成员), 第几位)
对数组号 ＝ 获取数组号 (数组, 第几位)
对成员号 ＝ 到整数 (成员 [第几位]) ＋ i － 1
数据总和 ＝ 数据总和 ＋ 获取和数 (整数数组, 对成员号)
计次循环尾 ()
计次循环尾 ()
判断循环尾 ()
编辑框1.加入文本 (到文本 (循环常量) ＋ “轮：” ＋ 到文本 (取启动时间 () － 运行时间) ＋ #换行符 )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
分割文本并转换
参数名	类 型	参考	可空	数组	备 注
输入组件	文本型
分割后数组	文本型
整数数组	整数型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
成员数	整数型

计次循环首 (9, i)
分割后数组 ＝ 分割文本 (输入组件 [i], #换行符, )
成员数 ＝ 取数组成员数 (分割后数组)
重定义数组 (整数数组, 真, 成员数)
计次循环首 (成员数, j)
整数数组 [j] ＝ 到整数 (分割后数组 [j])
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
获取数组号	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
第几位	整数型

如果 (第几位 ＝ 6)
返回 (1)
返回 (到整数 (数组 [第几位]))

子程序名	返回值类型	公开	备 注
获取和数	整数型
参数名	类 型	参考	可空	数组	备 注
目标数组	整数型
成员号	整数型

如果 (成员号 ＞ 0 且 成员号 ≤ 取数组成员数 (目标数组))
返回 (目标数组 [成员号])
返回 (0)

.版本 2<br /> <br /> .子程序 开始2<br /> .局部变量 输入组件, 文本型, , "9"<br /> .局部变量 分割后数组, 文本型, , "9"<br /> .局部变量 整数数组, 整数型, , "9"<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 成员, 文本型, , "0"<br /> .局部变量 运行时间, 整数型<br /> .局部变量 循环常量, 整数型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 数据总和, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 第几位, 整数型<br /> .局部变量 对数组号, 整数型<br /> .局部变量 对成员号, 整数型<br /> <br /> ' 初始化输入组件内容<br /> 输入组件 [1] ＝ q1.内容<br /> 输入组件 [2] ＝ q2.内容<br /> 输入组件 [3] ＝ q3.内容<br /> 输入组件 [4] ＝ q4.内容<br /> 输入组件 [5] ＝ q5.内容<br /> 输入组件 [6] ＝ q6.内容<br /> 输入组件 [7] ＝ q7.内容<br /> 输入组件 [8] ＝ q8.内容<br /> 输入组件 [9] ＝ q9.内容<br /> <br /> ' 分割文本并转换为整数数组<br /> 分割文本并转换 (输入组件, 分割后数组, 整数数组)<br /> <br /> .计次循环首 (2, 循环常量)<br />     运行时间 ＝ 取启动时间 ()<br />     文本_逐字分割 (指定数组 (), 数组)<br />     循环次数 ＝ 0<br />     .判断循环首 (循环次数 ＜ 67277)<br />         循环次数 ＝ 循环次数 ＋ 1<br />         文本_逐字分割 (指定成员 (), 成员)<br />         数据总和 ＝ 0<br />         .计次循环首 (200, i)<br />             .计次循环首 (取数组成员数 (成员), 第几位)<br />                 对数组号 ＝ 获取数组号 (数组, 第几位)<br />                 对成员号 ＝ 到整数 (成员 [第几位]) ＋ i － 1<br />                 数据总和 ＝ 数据总和 ＋ 获取和数 (整数数组, 对成员号)<br /> <br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />     .判断循环尾 ()<br />     编辑框1.加入文本 (到文本 (循环常量) ＋ “轮：” ＋ 到文本 (取启动时间 () － 运行时间) ＋ #换行符)<br /> .计次循环尾 ()<br /> <br /> .子程序 分割文本并转换<br /> .参数 输入组件, 文本型, 数组<br /> .参数 分割后数组, 文本型, 数组<br /> .参数 整数数组, 整数型, 数组<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 成员数, 整数型<br /> <br /> .计次循环首 (9, i)<br />     分割后数组 ＝ 分割文本 (输入组件 <i>, #换行符, )<br />     成员数 ＝ 取数组成员数 (分割后数组)<br />     重定义数组 (整数数组, 真, 成员数)<br />     .计次循环首 (成员数, j)<br />         整数数组 [j] ＝ 到整数 (分割后数组 [j])<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 获取数组号, 整数型<br /> .参数 数组, 文本型, 数组<br /> .参数 第几位, 整数型<br /> <br /> .如果 (第几位 ＝ 6)<br />     返回 (1)<br /> .否则<br />     返回 (到整数 (数组 [第几位]))<br /> .如果结束<br /> <br /> <br /> .子程序 获取和数, 整数型<br /> .参数 目标数组, 整数型, 数组<br /> .参数 成员号, 整数型<br /> <br /> .如果 (成员号 ＞ 0 且 成员号 ≤ 取数组成员数 (目标数组))<br />     返回 (目标数组 [成员号])<br /> .否则<br />     返回 (0)