qzwqzw

回复 12# batman
从五至一的筛选可以用set
从一至五的筛选可以用findstr
感觉效率不会差别太大
当然没有实测也不敢确定

顺子其实也没什么难的
就目前的需要还用不到判断+1和-1
直接罗列出二/三类中所有的顺子组合
然后一次findstr即可

qzwqzw

rem 对x的位置严格限定后得到的结果，与楼上的不同，没仔细看谁有问题
rem class1: 1
rem class2: 26          不包含8x88 88x8 888x
rem class3: 424     不包含88xx aaax abcx以及其它x变化位置的模式
rem class4: 1700    不包含8xxx aaxx xaax以及其它xx变化位置的模式
rem class5: 7868

qzwqzw

修正了一下
主要是未考虑逆序顺子问题
现在筛选结果基本上与batman的代码一致了
五类数的统计数如下
1，32，488，1691，7788
batman的代码把8888归为了二类

qzwqzw

忘了将自己findstr的方案贴出来了
效率应该比楼上的代码好一点

@echo off
setlocal EnableDelayedExpansion
(for /l %%i in (10000,1,19999) do set v=%%i&echo !v:~1!)>arr.tmp

set class1=8888
(echo %class1%)>class1.txt
findstr /v "%class1%" < arr.tmp > arr2.tmp

set class2=.888
set class2=%class2% 0123 1234 2345 3456 4567 5678 6789
set class2=%class2% 9876 8765 7654 6543 5432 4321 3210
set class2=%class2% 0000 1111 2222 3333 4444 5555 6666 7777 9999
findstr "%class2%" < arr2.tmp > class2.txt
findstr /v "%class2%" < arr2.tmp > arr3.tmp

set class3-1=..88
set class3-1=%class3-1% .000 .111 .222 .333 .444 .555 .666 .777 .999
set class3-1=%class3-1% .012 .123 .234 .345 .456 .567 .678 .789
set class3-1=%class3-1% .210 .321 .432 .543 .654 .765 .876 .987
findstr "%class3-1%" < arr3.tmp > class3-1.tmp
set class3-2a=00.. 11.. 22.. 33.. 44.. 55.. 66.. 77.. 88.. 99..
set class3-2b=..00 ..11 ..22 ..33 ..44 ..55 ..66 ..77 ..99
findstr "%class3-2a%" < arr3.tmp | findstr "%class3-2b%" > class3-2.tmp
set class3-3a=0.0. 1.1. 2.2. 3.3. 4.4. 5.5. 6.6. 7.7. 8.8. 9.9.
set class3-3b=.0.0 .1.1 .2.2 .3.3 .4.4 .5.5 .6.6 .7.7 .8.8 .9.9
findstr "%class3-3a%" < arr3.tmp | findstr "%class3-3b%" > class3-3.tmp
copy /b class3-?.tmp class3.txt >nul
findstr /v /g:class3.txt < arr3.tmp > arr4.tmp

set class4-1=...8
set class4-1=%class4-1% ..00 ..11 ..22 ..33 ..44 ..55 ..66 ..77 ..99
findstr "%class4-1%" < arr4.tmp > class4-1.tmp
set class4-2a=.00. .11. .22. .33. .44. .55. .66. .77. .88. .99.
set class4-2b=0..0 1..1 2..2 3..3 4..4 5..5 6..6 7..7 9..9
findstr "%class4-2a%" < arr4.tmp | findstr "%class4-2b%" > class4-2.tmp
copy /b class4-?.tmp class4.txt >nul
findstr /v /g:class4.txt < arr4.tmp > class5.txt

del *.tmp
复制代码