601997526

这个有点味道，以前没玩过，不过这要用P写出来的话还是没想到什么好方法来比较数字的大小，最后只好用了临时文件

@echo off&setlocal enabledelayedexpansion
title 数字黑洞6174
:开始
cls
set 数字=
set /p 数字=请输入四位数的数字(演示请按i)
if /i "%数字%"=="i" call :演示
echo %数字%|findstr "^[0-9][0-9][0-9][0-9]$"||goto :开始
:循环
call :判断
set /a 数字=%大数%-%小数%
echo.%数字%
if not %数字% equ 6174 goto :循环
pause>nul&goto :开始
:演示
set 数字=
for /l %%i in (1 1 4) do set /a 数%%i=!random!%%10
for /l %%i in (1 1 4) do set 数字=!数字!!数%%i!
goto :eof
:判断
set n=
set 大数=
set 小数=
(for /l %%i in (0 1 3) do echo !数字:~%%i,1!)>大小判断.txt
for /f %%i in ('sort 大小判断.txt') do (set /a n+=1
set 小!n!=%%i)
del 大小判断.txt
for /l %%i in (1 1 4) do (set 小数=!小数!!小%%i!
set 大数=!小%%i!!大数!)
for /f "tokens=* delims=0" %%i in ("%小数%") do set 小数=%%i
set/p=%大数%-%小数%=<nul
复制代码