数字检测重复处理

chenxiaobin

检测出3个相同数字或者4个相同数字

01,02,03,04,05,06
02,01,03,10,11,12
12,10,11,21,22,23
23,21,22,02,01,03
41,42,43,44,45,46
45,46,44,43,42,47

检测结果为
01,02,03：出现3次，在第1行，第2行，第4行
10,11,12：出现2次，在第2行，第3行
21,22,23：出现1次，在第4行
42,43,44,45：出现1次，在第5行

haoren1212

  

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

变量名	类 型	静态	数组	备 注
原文本数组	文本型		0
行文本数组	文本型		0
全文本数组	文本型		0
不重复文本数组	文本型		0
出现位置数组	整数型		0
出现行位置数组	整数型		0
i	整数型
x	整数型

清除数组 (全文本数组)
原文本数组 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (原文本数组), i)
行文本数组 ＝ 分割文本 (原文本数组 [i], “,”, )
计次循环首 (取数组成员数 (行文本数组), x)
加入成员 (全文本数组, 行文本数组 [x])
计次循环尾 ()
计次循环尾 ()
不重复文本数组 ＝ 全文本数组
数组_去重复 (不重复文本数组, )
计次循环首 (取数组成员数 (不重复文本数组), i)
清除数组 (出现行位置数组)
数组_寻找数组 (全文本数组, 不重复文本数组 [i], 出现位置数组)
计次循环首 (取数组成员数 (出现位置数组), x)
加入成员 (出现行位置数组, 到整数 (出现位置数组 [x] ÷ 6 ＋ 1))
计次循环尾 ()
调试输出 (不重复文本数组 [i], “数组位置”, 出现位置数组, “出现行位置”, 出现行位置数组)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原文本数组, 文本型, , "0"<br /> .局部变量 行文本数组, 文本型, , "0"<br /> .局部变量 全文本数组, 文本型, , "0"<br /> .局部变量 不重复文本数组, 文本型, , "0"<br /> .局部变量 出现位置数组, 整数型, , "0"<br /> .局部变量 出现行位置数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> <br /> 清除数组 (全文本数组)<br /> 原文本数组 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (原文本数组), i)<br />     行文本数组 ＝ 分割文本 (原文本数组 <i>, “,”, )<br />     .计次循环首 (取数组成员数 (行文本数组), x)<br />         加入成员 (全文本数组, 行文本数组 [x])<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 不重复文本数组 ＝ 全文本数组<br /> 数组_去重复 (不重复文本数组, )<br /> .计次循环首 (取数组成员数 (不重复文本数组), i)<br />     清除数组 (出现行位置数组)<br />     数组_寻找数组 (全文本数组, 不重复文本数组 <i>, 出现位置数组)<br />     .计次循环首 (取数组成员数 (出现位置数组), x)<br />         加入成员 (出现行位置数组, 到整数 (出现位置数组 [x] ÷ 6 ＋ 1))<br />     .计次循环尾 ()<br />     调试输出 (不重复文本数组 <i>, “数组位置”, 出现位置数组, “出现行位置”, 出现行位置数组)<br /> .计次循环尾 ()

chenxiaobin

haoren1212 发表于 2025-3-6 00:21
[e=1].版本 2
.支持库 spec

调试了下不行，数组多了一堆。

算法艺术家

  

数字检测重复处理 ( #常量1, “01,02,03”)

子程序名	返回值类型	公开	备 注
数字检测重复处理
参数名	类 型	参考	可空	数组	备 注
总文本	文本型
欲检测文本	文本型

变量名	类 型	静态	数组	备 注
行组	文本型		0
数组	文本型		0
欲检测数组	文本型		0
i	整数型
结果组	整数型		0
出现次数	整数型
结果文本	文本型

行组 ＝ 分割文本 (总文本, #换行符, )
欲检测数组 ＝ 分割文本 (欲检测文本, “,”, )
计次循环首 (取数组成员数 (行组), i)
数组 ＝ 分割文本 (行组 [i], “,”, )
如果真 (数组是否为子集 (数组, 欲检测数组))
加入成员 (结果组, i)

计次循环尾 ()
出现次数 ＝ 取数组成员数 (结果组)
计次循环首 (出现次数, i)
结果文本 ＝ 结果文本 ＋ “第” ＋ 到文本 (结果组 [i]) ＋ “行,”
计次循环尾 ()
调试输出 (欲检测文本 ＋ “：出现” ＋ 到文本 (出现次数) ＋ “次,在” ＋ 结果文本)

子程序名	返回值类型	公开	备 注
数组是否为子集	逻辑型
参数名	类 型	参考	可空	数组	备 注
数组1	文本型				全集
数组2	文本型				子集

变量名	类 型	静态	数组	备 注
计次	整数型
i	整数型
m	整数型

计次循环首 (取数组成员数 (数组2), i)
计次循环首 (取数组成员数 (数组1), m)
如果真 (数组2 [i] ＝ 数组1 [m])
计次 ＝ 计次 ＋ 1

计次循环尾 ()
计次循环尾 ()
判断 (计次 ＝ 取数组成员数 (数组2))
返回 (真)
返回 (假)

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

.版本 2<br /> .支持库 spec<br /> <br /> 数字检测重复处理 (#常量1, “01,02,03”)<br /> <br /> .子程序 数字检测重复处理<br /> .参数 总文本, 文本型<br /> .参数 欲检测文本, 文本型<br /> .局部变量 行组, 文本型, , "0"<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 欲检测数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 结果组, 整数型, , "0"<br /> .局部变量 出现次数, 整数型<br /> .局部变量 结果文本, 文本型<br /> <br /> 行组 ＝ 分割文本 (总文本, #换行符, )<br /> 欲检测数组 ＝ 分割文本 (欲检测文本, “,”, )<br /> .计次循环首 (取数组成员数 (行组), i)<br />     数组 ＝ 分割文本 (行组 <i>, “,”, )<br />     .如果真 (数组是否为子集 (数组, 欲检测数组))<br />         加入成员 (结果组, i)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 出现次数 ＝ 取数组成员数 (结果组)<br /> .计次循环首 (出现次数, i)<br />     结果文本 ＝ 结果文本 ＋ “第” ＋ 到文本 (结果组 <i>) ＋ “行,”<br /> .计次循环尾 ()<br /> 调试输出 (欲检测文本 ＋ “：出现” ＋ 到文本 (出现次数) ＋ “次,在” ＋ 结果文本)<br /> <br /> <br /> .子程序 数组是否为子集, 逻辑型, 公开<br /> .参数 数组1, 文本型, 数组, 全集<br /> .参数 数组2, 文本型, 数组, 子集<br /> .局部变量 计次, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 m, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组2), i)<br />     .计次循环首 (取数组成员数 (数组1), m)<br />         .如果真 (数组2 <i> ＝ 数组1 [m])<br />             计次 ＝ 计次 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .判断开始 (计次 ＝ 取数组成员数 (数组2))<br />     返回 (真)<br /> .默认<br />     返回 (假)<br /> .判断结束

补充内容 (2025-3-6 14:23):
如果每次总文本都不变，那你可以把 行组 ＝ 分割文本 (总文本, #换行符, )  放程序集变量或者静态变量里 这样不用每次都分割了

最烦起名字

你的这些数字似乎没有超过255的,试试用寻找字节集解决吧.

sunfly

行长度相同 直接字节集搜索位置然后处于行长等于行数，2个变量统计行数，次数