从随机数字串中找出有多少对一样的数子。 - 中国DOS联盟论坛

凑个热闹


@echo off
for %%a in (%random% %random% %random%) do (
    set str=%%a
    setlocal enabledelayedexpansion
    for /l %%i in (0 1 4) do if not "!str:~%%i,1!"==""  set/a _!str:~%%i,1!+=1
    for /f "tokens=1,2 delims=_=" %%i in ('set _') do (
    if %%j gtr 1 set/a n+=1&if defined var (set var=!var!和%%i)else set var=%%i
   )
    if defined n (echo %%a 有 !n! 对（!var!）)else echo %%a 有 0 对
    endlocal
  )
pause

Originally posted by clian76 at 2009-1-8 23:17:

有什么办法把变量：
!_str!
!j!
!strout:~0,-1!
拿到endlocal之后，就是这里的PAUSE之后让程序正常显示变量。我试了把endlocal拿到代码最后，这样程序就 ...

这样呢？

@echo off
FOR /F %%a IN ('echo %random%^&echo %random%^&echo %random%') do (
set j1=&set s1=
call :rndd %%a j1 s1
if defined j1 (call echo %%a	有%%j1%%对（%%s1%%）) else echo %%a	有0对
)
pause&goto:EOF
:rndd
setlocal enabledelayedexpansion
set str=%1
set j=
for /l %%x in (1,1,5) do (
    if "!str!" neq "" (
	set i=!str:~0,1!
	if not defined str!i! (set str!i!=1) else set/a str!i!+=1,j=0
	set str=!str:~1!
)   )
if defined j (
    for /f "tokens=1,2delims==" %%i in ('set str')do if %%j gtr 1 set str=%%i&set "strout=!strout!!str:~3,1!和"&set/a j+=%%j/2
)
endlocal&if "%strout%" neq "" set %2=%j%&set %3=%strout:~0,-1%

[ Last edited by linee on 2009-1-9 at 15:57 ]

16楼更精简，不过对子数要处理下，比如：1111 仍显示有1对（1）正确应该显示有2对 (1)

Originally posted by linee at 2009-1-9 12:06:
16楼更精简，不过对子数要处理下，比如：1111 仍显示有1对（1）正确应该显示有2对 (1)

1111如要显示2对那就set/a n+=%%j/2

第16楼　terse	发表于 2009-01-09 03:16
银牌会员　发帖 946　积分 2,404
凑个热闹 @echo off for %%a in (%random% %random% %random%) do ( set str=%%a setlocal enabledelayedexpansion for /l %%i in (0 1 4) do if not "!str:~%%i,1!"=="" set/a _!str:~%%i,1!+=1 for /f "tokens=1,2 delims=_=" %%i in ('set _') do ( if %%j gtr 1 set/a n+=1&if defined var (set var=!var!和%%i)else set var=%%i ) if defined n (echo %%a 有 !n! 对（!var!）)else echo %%a 有 0 对 endlocal ) pause

第17楼　linee	发表于 2009-01-09 11:37
初级用户　发帖 49　积分 94
Originally posted by clian76 at 2009-1-8 23:17: 有什么办法把变量： !_str! !j! !strout:~0,-1! 拿到endlocal之后，就是这里的PAUSE之后让程序正常显示变量。我试了把endlocal拿到代码最后，这样程序就 ... 这样呢？ @echo off FOR /F %%a IN ('echo %random%^&echo %random%^&echo %random%') do ( set j1=&set s1= call :rndd %%a j1 s1 if defined j1 (call echo %%a 有%%j1%%对（%%s1%%）) else echo %%a 有0对 ) pause&goto:EOF :rndd setlocal enabledelayedexpansion set str=%1 set j= for /l %%x in (1,1,5) do ( if "!str!" neq "" ( set i=!str:~0,1! if not defined str!i! (set str!i!=1) else set/a str!i!+=1,j=0 set str=!str:~1! ) ) if defined j ( for /f "tokens=1,2delims==" %%i in ('set str')do if %%j gtr 1 set str=%%i&set "strout=!strout!!str:~3,1!和"&set/a j+=%%j/2 ) endlocal&if "%strout%" neq "" set %2=%j%&set %3=%strout:~0,-1% [ Last edited by linee on 2009-1-9 at 15:57 ]

第18楼　linee	发表于 2009-01-09 12:06
初级用户　发帖 49　积分 94
16楼更精简，不过对子数要处理下，比如：1111 仍显示有1对（1）正确应该显示有2对 (1)

第19楼　terse	发表于 2009-01-09 19:54
银牌会员　发帖 946　积分 2,404
Originally posted by linee at 2009-1-9 12:06: 16楼更精简，不过对子数要处理下，比如：1111 仍显示有1对（1）正确应该显示有2对 (1) 1111如要显示2对那就set/a n+=%%j/2