中国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

@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%