判断重复数字

yq1431

1,1,0     有
1,0,1     没有
0,1,1     有
0,1,0     没有
--------------------
挨着的才算  


补充内容 (2025-1-18 10:43):
3个数不是固定的

憨憨问号

正则版本
所用匹配：
1,1,0
1,0,1
0,1,1
0,1,0
2,0,3
3,3,1
2,3,3
3,3,1
1,2,3
10,99,10
99,99,10

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
分段文本	文本型		0
i	整数型

分段文本 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (分段文本), i)
调试输出 (分段文本 [i])
正则.创建 (“(\d),\1”, 分段文本 [i], 假, 假, , )
如果 (正则.取匹配数量 () ＝ 0)  ' 0说明没匹配到
调试输出 (“没有”)
调试输出 (“有”)

. ' 如果 (寻找文本 (分段文本 [i], “1,1”, , 假) ＝ -1)  ' -1说明没找到
' 调试输出 (“没有”)
' 调试输出 (“有”)

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 分段文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 分段文本 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (分段文本), i)<br />     调试输出 (分段文本 <i>)<br />     正则.创建 (“(\d),\1”, 分段文本 <i>, 假, 假, , )<br />     .如果 (正则.取匹配数量 () ＝ 0)  ' 0说明没匹配到<br />         调试输出 (“没有”)<br />     .否则<br />         调试输出 (“有”)<br />     .如果结束<br /> <br />     .' 如果 (寻找文本 (分段文本 <i>, “1,1”, , 假) ＝ -1)  ' -1说明没找到<br />         ' 调试输出 (“没有”)<br />     .否则<br />         ' 调试输出 (“有”)<br />     .如果结束<br /> <br /> .计次循环尾 ()

补充内容 (2025-1-18 10:47):
100,55,26,1,99,1,23,23
10,5,3,6,78,8,8,90,2
13,16,52,2,84,6321,9,9,1254
13,456,89,26,13,12,13,12,13,12
经过测试这样的更多位的也可以匹配成功

补充内容 (2025-1-18 10:47):
需要“正则表达式类”
如果没有请调用精易模块

黑咖啡

  

变量名	类 型	静态	数组	备 注
a	整数型		0
i	整数型
结果	文本型

a ＝ { 0, 1, 1 }
计次循环首 (取数组成员数 (a) － 1, i)
结果 ＝ “没有”
判断 (a [i] ＝ a [i ＋ 1])
结果 ＝ “有”
跳出循环 ()



计次循环尾 ()
调试输出 (结果)
' 开始运行被调试程序
' * “有”
' 被调试易程序运行完毕

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> a ＝ { 0, 1, 1 }<br /> .计次循环首 (取数组成员数 (a) － 1, i)<br />     结果 ＝ “没有”<br />     .判断开始 (a <i> ＝ a [i ＋ 1])<br />         结果 ＝ “有”<br />         跳出循环 ()<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (结果)<br /> ' 开始运行被调试程序<br /> ' * “有”<br /> ' 被调试易程序运行完毕

憨憨问号

先按行分割，然后取文本，只要能够取出“1,1”，就说明有，能理解不？

憨憨问号

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
分段文本	文本型		0
i	整数型

分段文本 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (分段文本), i)
调试输出 (分段文本 [i])
如果 (寻找文本 (分段文本 [i], “1,1”, , 假) ＝ -1)  ' -1说明没找到
调试输出 (“没有”)
调试输出 (“有”)

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 分段文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 分段文本 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (分段文本), i)<br />     调试输出 (分段文本 <i>)<br />     .如果 (寻找文本 (分段文本 <i>, “1,1”, , 假) ＝ -1)  ' -1说明没找到<br />         调试输出 (“没有”)<br />     .否则<br />         调试输出 (“有”)<br />     .如果结束<br /> <br /> .计次循环尾 ()

补充内容 (2025-1-18 10:35):
如果你要找的不只是1,1的话推荐用正则，判断两个数字是否连着，如果只是1,1的话这样就行了