cutebe

随机生成四位数但没有判断四个数字是否全一样

@ECHO OFF
:ST
FOR /L %%T IN (1 1 9998)DO CD.
ECHO=&ECHO=数字黑洞
SET/aR=%RANDOM%%%9998+1
CALL :ADD0 R %R%
:MAIN
FOR /L %%I IN (0 1 3)DO CALL :VAR N_%%R:~%%I,1%%%%I %%R:~%%I,1%%
SET MAX=&SET MIN=
FOR /F "TOKENS=1,2 DELIMS==" %%K IN ('SET N_')DO (
　CALL :VAR MAX %%L%%MAX%%
　CALL :VAR MIN %%MIN%%%%L
　SET %%K=
)
SET/aR=1%MAX%-1%MIN%
CALL :ADD0 R %R%
ECHO=%MAX%-%MIN%=%R%
IF "%OMAX%"=="%MAX%" GOTO :ST
SET/aOMAX=MAX
GOTO :MAIN
:ADD0
SET X=000%2
SET X=%X:~-4%
SET %1=%X%
GOTO :EOF
:VAR
SET %~1=%~2
GOTO :EOF
复制代码