lhjoanna

呵，wxcute兄出的题目越来越有水平了，说难也不难，说不难也的确要动一下脑子。强烈支持！！！

@echo off&setlocal enabledelayedexpansion
set %random%=%random%
for /f "delims=" %%i in ('set') do set str=%%i&goto start
:start
echo %str%
for /f "tokens=1,2 delims==" %%i in ("%str%") do set num=%%i%%j
:calc
set var=!num:~,1!
set /a s+=var
set /p=%var%+<nul
set num=!num:~1!
if defined num goto calc
set /p==!s!<nul
pause>nul
复制代码

[ 本帖最后由 lhjoanna 于 2008-11-21 16:53 编辑 ]

lhjoanna

修改了一下，通过屏蔽错误输出，从而省略去掉str中“=”的步骤！可以稍微提高点效率~~

@echo off&setlocal enabledelayedexpansion
set %random%=%random%
for /f "delims=" %%i in ('set') do set str=%%i&goto start
:start
echo %str%
:calc
set var=!str:~,1!
set /a s+=var
set /p=%var%+<nul 2>nul
set str=!str:~1!
if defined str goto calc
set /p==!s!<nul
pause>nul
复制代码

[ 本帖最后由 lhjoanna 于 2008-11-21 17:11 编辑 ]