neorobin

回复 15# qzwqzw

按顶楼题意, x(以及 a,b,c,d) 取值并不排除 8 这个数字, 只是在特定位置特定数量连续的 8 的形式, 优先匹配 8 相关的形式.
比较下面几个序列, 可以看到部分问题:
序列      类别       形式
8876        3        xabc
8877        3        aabb
8899        3        aabb

neorobin

回复 11# batman
代码结果的差别(comp 比较) 共有 10 处(并不止这些):

        neorobin    batman
0022    4  xxaa     3  aabb
0033    4  xxaa     3  aabb
0044    4  xxaa     3  aabb
0055    4  xxaa     3  aabb
0066    4  xxaa     3  aabb
0077    4  xxaa     3  aabb
0099    4  xxaa     3  aabb

0202    5           3  abab
0220        5           4  abba
0303    5           3  abab

可见, 对于 a b 的关系, 我全部是按 a b 相差 1 处理的, 而 batman 应该只是在 c 也出现时按相差 1 处理的, 没有 c 出现时, a b 没有特定关系

batman

回复 17# neorobin
是的，题意本来如此，只怪顶楼举例用了1212 2121 1221这样特殊的数值误导了兄弟，对不起了。。。

qzwqzw

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

neorobin

回复 18# batman

按这种定义改了下:

@echo off & setlocal enabledelayedexpansion
> digit.txt (for /l %%i in (10000 1 19999) do (
    (set s=%%i)& set /a "w=!s:~1,1!,x=!s:~2,1!,y=!s:~3,1!,z=!s:~4,1!,w-=z,x-=z,y-=z,t=5"
    if %%i==18888 (set t=1) else if !x!!y!!z!==008 (set "t=2"
    ) else for %%s in (000 -3-2-1 321) do if !w!!x!!y!==%%s set "t=2"
    if !t!==5 if !y!!z!==08 (set t=3) else for %%s in (00 21 -2-1) do if !x!!y!==%%s set "t=3"
    if !t!==5 (set /a "ab3=^!(w-x|y)|^!(w-y|x)") & if !ab3!==1 (set "t=3"
    ) else if !z!==8 (set t=4) else if !y!==0 (set t=4) else (set /a "ab4=w|x-y") & if !ab4!==0 set "t=4"
    echo !t!	!s:~-4!
) )
start digit.txt
复制代码

得到 5 类总数分别为: 1,32,488,1691,7788

batman

回复 19# qzwqzw


    刚重新看了下自己的代码，确实出现这个低级错误，原因是在前面我已将str变量截取了一位，在后面不记得又截取了一位，所以将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
复制代码

terse

IF的效率不给力
练手哦

@echo off&setlocal enableDelayedExpansion
(
for /l %%i in (0 1 9) do (
    for /l %%j in (0 1 9) do (
        for /l %%k in (0 1 9) do (
            for /l %%l in (0 1 9) do (
                if %%i%%j neq %%k%%l (
                   if %%k neq %%l (
                      if %%j%%i neq %%k%%l (
                         set /a "Ni=%%j^~-%%k|%%k^~-%%l,N=%%i^~-%%j|Ni"
                         if !N! equ 0 (set str=二)else (
                            if !Ni! equ 0  (set str=三)else (
                                set /a "Ni=~-%%j^%%k|~-%%k^%%l,N=~-%%i^%%j|Ni"
                                if !N! equ 0 (set str=二)else (
                                   if !Ni! equ 0 (set str=三)else (
                                      if %%l neq 8 (set str=五)else set str=四
                                   )
                                )
                            )
                         )
                      ) else set str=四
                   ) else if %%j neq %%k (
                          if %%k%%l neq 88 (
                             if %%i equ %%j (set str=三)else set str=四
                          ) else set str=三
                          ) else if %%l neq 8 (set str=三)else set str=二
                )else if %%j neq %%k (set str=三)else if %%k neq 8 (set str=二)else set str=一
                echo !STR! %%i%%j%%k%%l
))))
)>~TEM.tX
start notepad "~TEM.tX"
复制代码

jains521

好题!.思考一下.!!

jains521

@echo off 
setlocal enabledelayedexpansion
::一类　8888
::二类　x888 aaaa abcd	补充:888x
::三类　xx88 xaaa xabc aabb abab 补充:88xx, aaax
::四类　xxx8 xxaa abba  补充: 8xxx, aaxx
::五类　其余的号码

:: 思路.
:: 好吧这思路很乱.自己也写乱了.
::整体的思路是利用set /a 用数除0  然后判断各类的特点分类.

set a_b=123456789
set c_b=987654
set b_a=543210
::连续的思路是利用set /a,替换字符将其他字符乘以0, 如%%i=123 ,  set /a "1/(!a_b:%%i=1*0*1!)"
::思路是可以用的..不过没有时间处理了..有时间的朋友帮我补充完整吧.
for /l %%i in (9999, -1, 1) do (
	set /a "1 / ( %%i - 8888 )"  2>nul && (
		set /a "1/(%%i%%1000-888), 1/(%%i/10-888), 1/(%%i%%1111)" 2>nul && (
			set /a "a=%%i/1000, b=%%i%%1000/100, c=%%i%%100/10, d=%%i%%10"
			set /a "1/(%%i%%100-88), 1/(%%i/100-88),1/((%%i%%1000)%%111), 1/(%%i/100-%%i%%100), 1/((a-b)|(c-d))" 2>nul && (
				set /a "1/(%%i%%10-8), 1/(%%i/1000-8), 1/((%%i%%100)%%11), 1/(a*10+b-(d*10+c))" 2>nul&&(
					set /a ClassFive+=1!第五类!
				)|| (set /a ClassFour+=1!第四类! )
			) || (set /a ClassThree+=1 & set _ClassThree=%%i !_ClassThree!!第三类!)
		) || (if %%i gtr 1000 set /a ClassTwo+=1 & set _ClassTwo=%%i !_ClassTwo!!第二类!)
	) || (set /a ClassOne+=1 & set _ClassOne=%%i !_ClassOne!!第一类!)
)
echo ClassOne=%ClassOne%, ClassTwo=%ClassTwo%, ClassThree=%ClassThree%, ClassFour=%ClassFour%, ClassFive=%ClassFive%
pause>nul
goto :eof
复制代码