悬赏交易币100币：优化代码

woyao2991314

  

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

变量名	类 型	静态	数组	备 注
取得的数	文本型
n	整数型
大于	逻辑型
补数	文本型
arr	文本型		0
i	整数型
启动时间	整数型
起始数x	文本型
位数	整数型
最小数	整数型
数值	文本型		0
范围x	文本型
x	整数型
返回文本	文本型
总值数	文本型
用时	整数型
c	整数型
数据	文本型
一	文本型
二	文本型
三	文本型
四	文本型
五	文本型

用时 ＝ 取启动时间 ()
计次循环首 (16805, c)
位数 ＝ 5
取得的数 ＝ 总值数
起始数x ＝ 到文本 (1)
范围x ＝ 到文本 (7)
返回文本 ＝ “”
文本_逐字分割 (取得的数, 数值)
如果 (取数组成员数 (数值) ＞ 5)
计次循环首 (5, x)
返回文本 ＝ 返回文本 ＋ 范围x
计次循环尾 ()

计次循环首 (5 － 取数组成员数 (数值), )
插入成员 (数值, 1, 起始数x)
计次循环尾 ()
数组_反转 (数值)
计次循环首 (5, x)
如果 (x ＝ 1)
如果 (到整数 (数值 [x]) ＋ 1 ＞ 到整数 (范围x))
数值 [x ＋ 1] ＝ 到文本 (到整数 (数值 [x ＋ 1]) ＋ 1)
数值 [x] ＝ 起始数x

数值 [x] ＝ 到文本 (到整数 (数值 [x]) ＋ 1)

如果 (到整数 (数值 [x]) ＞ 到整数 (范围x))
如果 (x ＋ 1 ＞ 5)
数值 [x] ＝ 起始数x
数值 [x ＋ 1] ＝ 到文本 (到整数 (数值 [x ＋ 1]) ＋ 1)
数值 [x] ＝ 起始数x

跳出循环 ()


计次循环尾 ()
数组_反转 (数值)
计次循环首 (取数组成员数 (数值), x)
返回文本 ＝ 返回文本 ＋ 数值 [x]
计次循环尾 ()
总值数 ＝ 返回文本
文本_逐字分割 (总值数, arr)
如果真 (取数组成员数 (arr) ≥ 1)
一 ＝ arr [1]
如果真 (取数组成员数 (arr) ≥ 2)
二 ＝ arr [2]
如果真 (取数组成员数 (arr) ≥ 3)
三 ＝ arr [3]
如果真 (取数组成员数 (arr) ≥ 4)
四 ＝ arr [4]
如果真 (取数组成员数 (arr) ≥ 5)
五 ＝ arr [5]

' ===========================================
' 现取得数 5位数，1-7的数
' 从来：11112开始-77776：一共：16805个组合数
' 所有数字组合重复了5次
' 例如：
' 67777
' 76777
' 77677
' 77767
' 77776
' 要是效果是：只需要一组任意一组就行
' 那么总数组合就只有16805除以5=3361组
' 编辑框1.加入文本 (总值数 ＋ #换行符)
' 用时别差太远，什么方法都可以，代码长也没事，
计次循环尾 ()
用时 ＝ 取启动时间 () － 用时
调试输出 (用时)
' 总用时大概500多毫秒，容许3秒内

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击, , , 更新<br /> .局部变量 取得的数, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 大于, 逻辑型<br /> .局部变量 补数, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 启动时间, 整数型<br /> .局部变量 起始数x, 文本型<br /> .局部变量 位数, 整数型<br /> .局部变量 最小数, 整数型<br /> .局部变量 数值, 文本型, , "0"<br /> .局部变量 范围x, 文本型<br /> .局部变量 x, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 总值数, 文本型<br /> .局部变量 用时, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 数据, 文本型<br /> .局部变量 一, 文本型<br /> .局部变量 二, 文本型<br /> .局部变量 三, 文本型<br /> .局部变量 四, 文本型<br /> .局部变量 五, 文本型<br /> <br /> 用时 ＝ 取启动时间 ()<br /> .计次循环首 (16805, c)<br />     位数 ＝ 5<br />     取得的数 ＝ 总值数<br />     起始数x ＝ 到文本 (1)<br />     范围x ＝ 到文本 (7)<br />     返回文本 ＝ “”<br />     文本_逐字分割 (取得的数, 数值)<br />     .如果 (取数组成员数 (数值) ＞ 5)<br />         .计次循环首 (5, x)<br />             返回文本 ＝ 返回文本 ＋ 范围x<br />         .计次循环尾 ()<br /> <br />     .否则<br />         .计次循环首 (5 － 取数组成员数 (数值), )<br />             插入成员 (数值, 1, 起始数x)<br />         .计次循环尾 ()<br />         数组_反转 (数值)<br />         .计次循环首 (5, x)<br />             .如果 (x ＝ 1)<br />                 .如果 (到整数 (数值 [x]) ＋ 1 ＞ 到整数 (范围x))<br />                     数值 [x ＋ 1] ＝ 到文本 (到整数 (数值 [x ＋ 1]) ＋ 1)<br />                     数值 [x] ＝ 起始数x<br /> <br />                 .否则<br />                     数值 [x] ＝ 到文本 (到整数 (数值 [x]) ＋ 1)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (到整数 (数值 [x]) ＞ 到整数 (范围x))<br />                     .如果 (x ＋ 1 ＞ 5)<br />                         数值 [x] ＝ 起始数x<br />                     .否则<br />                         数值 [x ＋ 1] ＝ 到文本 (到整数 (数值 [x ＋ 1]) ＋ 1)<br />                         数值 [x] ＝ 起始数x<br />                     .如果结束<br /> <br />                 .否则<br />                     跳出循环 ()<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .计次循环尾 ()<br />         数组_反转 (数值)<br />         .计次循环首 (取数组成员数 (数值), x)<br />             返回文本 ＝ 返回文本 ＋ 数值 [x]<br />         .计次循环尾 ()<br />     .如果结束<br />     总值数 ＝ 返回文本<br />     文本_逐字分割 (总值数, arr)<br />     .如果真 (取数组成员数 (arr) ≥ 1)<br />         一 ＝ arr [1]<br />     .如果真结束<br />     .如果真 (取数组成员数 (arr) ≥ 2)<br />         二 ＝ arr [2]<br />     .如果真结束<br />     .如果真 (取数组成员数 (arr) ≥ 3)<br />         三 ＝ arr [3]<br />     .如果真结束<br />     .如果真 (取数组成员数 (arr) ≥ 4)<br />         四 ＝ arr [4]<br />     .如果真结束<br />     .如果真 (取数组成员数 (arr) ≥ 5)<br />         五 ＝ arr [5]<br />     .如果真结束<br /> <br /> <br /> <br /> <br />     ' ===========================================<br /> <br />     ' 现取得数 5位数，1-7的数<br /> <br />     ' 从来：11112开始-77776：一共：16805个组合数<br />     ' 所有数字组合重复了5次<br />     ' 例如：<br />     ' 67777<br />     ' 76777<br />     ' 77677<br />     ' 77767<br />     ' 77776<br /> <br />     ' 要是效果是：只需要一组任意一组就行<br /> <br />     ' 那么总数组合就只有16805除以5=3361组<br />     ' 编辑框1.加入文本 (总值数 ＋ #换行符)<br /> <br />     ' 用时别差太远，什么方法都可以，代码长也没事，<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> 用时 ＝ 取启动时间 () － 用时<br /> 调试输出 (用时)<br /> <br /> ' 总用时大概500多毫秒，容许3秒内

LWB666

优化去重复.e (1.06 MB, 下载次数: 21)

2025-2-5 23:34 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
取得的数	文本型
n	整数型
大于	逻辑型
补数	文本型
arr	文本型		0
i	整数型
启动时间	整数型
起始数x	文本型
位数	整数型
最小数	整数型
数值	文本型		0
范围x	文本型
x	整数型
返回文本	文本型
总值数	文本型
用时	整数型
c	整数型
数据	文本型
一	文本型
二	文本型
三	文本型
四	文本型
五	文本型
t	文本型

用时 ＝ 取启动时间 ()
计次循环首 (16805, c)
位数 ＝ 5
取得的数 ＝ 总值数
起始数x ＝ 到文本 (1)
范围x ＝ 到文本 (7)
返回文本 ＝ “”
文本_逐字分割 (取得的数, 数值)
如果 (取数组成员数 (数值) ＞ 5)
计次循环首 (5, x)
返回文本 ＝ 返回文本 ＋ 范围x
计次循环尾 ()

计次循环首 (5 － 取数组成员数 (数值), )
插入成员 (数值, 1, 起始数x)
计次循环尾 ()
数组_反转 (数值)
计次循环首 (5, x)
如果 (x ＝ 1)
如果 (到整数 (数值 [x]) ＋ 1 ＞ 到整数 (范围x))
数值 [x ＋ 1] ＝ 到文本 (到整数 (数值 [x ＋ 1]) ＋ 1)
数值 [x] ＝ 起始数x

数值 [x] ＝ 到文本 (到整数 (数值 [x]) ＋ 1)

如果 (到整数 (数值 [x]) ＞ 到整数 (范围x))
如果 (x ＋ 1 ＞ 5)
数值 [x] ＝ 起始数x
数值 [x ＋ 1] ＝ 到文本 (到整数 (数值 [x ＋ 1]) ＋ 1)
数值 [x] ＝ 起始数x

跳出循环 ()


计次循环尾 ()
数组_反转 (数值)
计次循环首 (取数组成员数 (数值), x)
返回文本 ＝ 返回文本 ＋ 数值 [x]
计次循环尾 ()
总值数 ＝ 返回文本
文本_逐字分割 (总值数, arr)
如果真 (取数组成员数 (arr) ≥ 1)
一 ＝ arr [1]
如果真 (取数组成员数 (arr) ≥ 2)
二 ＝ arr [2]
如果真 (取数组成员数 (arr) ≥ 3)
三 ＝ arr [3]
如果真 (取数组成员数 (arr) ≥ 4)
四 ＝ arr [4]
如果真 (取数组成员数 (arr) ≥ 5)
五 ＝ arr [5]

' ===========================================
' 现取得数 5位数，1-7的数
' 从来：11112开始-77776：一共：16805个组合数
' 所有数字组合重复了5次
' 例如：
' 67777
' 76777
' 77677
' 77767
' 77776
' 要是效果是：只需要一组任意一组就行
' 那么总数组合就只有16805除以5=3361组
t ＝ t ＋ 总值数 ＋ #换行符
' 用时别差太远，什么方法都可以，代码长也没事，
计次循环尾 ()
编辑框1.加入文本 (t)
用时 ＝ 取启动时间 () － 用时
调试输出 (用时)
' 总用时大概500多毫秒，容许3秒内

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击, , , 更新<br /> .局部变量 取得的数, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 大于, 逻辑型<br /> .局部变量 补数, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 启动时间, 整数型<br /> .局部变量 起始数x, 文本型<br /> .局部变量 位数, 整数型<br /> .局部变量 最小数, 整数型<br /> .局部变量 数值, 文本型, , "0"<br /> .局部变量 范围x, 文本型<br /> .局部变量 x, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 总值数, 文本型<br /> .局部变量 用时, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 数据, 文本型<br /> .局部变量 一, 文本型<br /> .局部变量 二, 文本型<br /> .局部变量 三, 文本型<br /> .局部变量 四, 文本型<br /> .局部变量 五, 文本型<br /> .局部变量 t, 文本型<br /> <br /> 用时 ＝ 取启动时间 ()<br /> .计次循环首 (16805, c)<br />     位数 ＝ 5<br />     取得的数 ＝ 总值数<br />     起始数x ＝ 到文本 (1)<br />     范围x ＝ 到文本 (7)<br />     返回文本 ＝ “”<br />     文本_逐字分割 (取得的数, 数值)<br />     .如果 (取数组成员数 (数值) ＞ 5)<br />         .计次循环首 (5, x)<br />             返回文本 ＝ 返回文本 ＋ 范围x<br />         .计次循环尾 ()<br /> <br />     .否则<br />         .计次循环首 (5 － 取数组成员数 (数值), )<br />             插入成员 (数值, 1, 起始数x)<br />         .计次循环尾 ()<br />         数组_反转 (数值)<br />         .计次循环首 (5, x)<br />             .如果 (x ＝ 1)<br />                 .如果 (到整数 (数值 [x]) ＋ 1 ＞ 到整数 (范围x))<br />                     数值 [x ＋ 1] ＝ 到文本 (到整数 (数值 [x ＋ 1]) ＋ 1)<br />                     数值 [x] ＝ 起始数x<br /> <br />                 .否则<br />                     数值 [x] ＝ 到文本 (到整数 (数值 [x]) ＋ 1)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (到整数 (数值 [x]) ＞ 到整数 (范围x))<br />                     .如果 (x ＋ 1 ＞ 5)<br />                         数值 [x] ＝ 起始数x<br />                     .否则<br />                         数值 [x ＋ 1] ＝ 到文本 (到整数 (数值 [x ＋ 1]) ＋ 1)<br />                         数值 [x] ＝ 起始数x<br />                     .如果结束<br /> <br />                 .否则<br />                     跳出循环 ()<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .计次循环尾 ()<br />         数组_反转 (数值)<br />         .计次循环首 (取数组成员数 (数值), x)<br />             返回文本 ＝ 返回文本 ＋ 数值 [x]<br />         .计次循环尾 ()<br />     .如果结束<br />     总值数 ＝ 返回文本<br />     文本_逐字分割 (总值数, arr)<br />     .如果真 (取数组成员数 (arr) ≥ 1)<br />         一 ＝ arr [1]<br />     .如果真结束<br />     .如果真 (取数组成员数 (arr) ≥ 2)<br />         二 ＝ arr [2]<br />     .如果真结束<br />     .如果真 (取数组成员数 (arr) ≥ 3)<br />         三 ＝ arr [3]<br />     .如果真结束<br />     .如果真 (取数组成员数 (arr) ≥ 4)<br />         四 ＝ arr [4]<br />     .如果真结束<br />     .如果真 (取数组成员数 (arr) ≥ 5)<br />         五 ＝ arr [5]<br />     .如果真结束<br /> <br /> <br /> <br /> <br />     ' ===========================================<br /> <br />     ' 现取得数 5位数，1-7的数<br /> <br />     ' 从来：11112开始-77776：一共：16805个组合数<br />     ' 所有数字组合重复了5次<br />     ' 例如：<br />     ' 67777<br />     ' 76777<br />     ' 77677<br />     ' 77767<br />     ' 77776<br /> <br />     ' 要是效果是：只需要一组任意一组就行<br /> <br />     ' 那么总数组合就只有16805除以5=3361组<br />     t ＝ t ＋ 总值数 ＋ #换行符<br /> <br />     ' 用时别差太远，什么方法都可以，代码长也没事，<br /> <br /> <br /> .计次循环尾 ()<br /> 编辑框1.加入文本 (t)<br /> 用时 ＝ 取启动时间 () － 用时<br /> 调试输出 (用时)<br /> <br /> ' 总用时大概500多毫秒，容许3秒内

补充内容 (2025-2-5 23:35):
简单优化了一下, 现在一秒左右, 如果要更深入优化加我Q, 看我个签

LWB666

加Q934483341

woyao2991314

LWB666 发表于 2025-2-5 23:34
[e=1].版本 2
.支持库 spec

+了，编辑框 只是临时看得出什么效果，用时没这步骤

鹏书

用时500毫秒 允许3秒内 难道500毫秒还比3秒多么？