wxcute (冰疼)当前离线
荣誉版主
pusofalse 当前离线
TOP
wwjpl 当前离线
六级士官
batman 当前离线
考官
@echo off for /l %%i in (11,1,999) do set "str=%%i"&call :lp %%i pause>nul :lp set "a=%a%%str:~,1%"&set "b=%b%%str:~-1%" set "str=%str:~1,-1%" if defined str goto lp if %a% equ %b% echo %1 set "a="&set "b="复制代码
youxi01 当前离线
原帖由 youxi01 于 2008-9-18 12:36 发表 楼上效率必然不高 其实可以观察回文数的特点:左右两边对称 巧妙的方法可以直接通过for即可,数秒内就可找出10000以内所有的回文数
@echo off for /l %%i in (1 1 9) do ( echo %%i%%i set/a n+=1 for /l %%j in (0 1 9) do ( echo %%i%%j%%i echo %%i%%j%%j%%i set/a n+=2 ) ) echo 10000以内总共有回文数%n%个 pause>nul复制代码
评分人数
lovelymorning 当前离线
四级士官
@echo off setlocal enabledelayedexpansion for /l %%i in (11,1,999) do ( set a=%%i if "!a:~0,1!"=="!a:~-1!" echo %%i ) pause复制代码
z_berry 当前离线
二级士官
原帖由 youxi01 于 2008-9-18 12:53 发表 测试代码:@echo off echo 0set n=1for /l %%i in (1 1 9) do ( echo %%i echo %%i%%i set/a n+=2 for /l %%j in (0 1 9) do ( echo %%i%%j%%i echo %%i%%j%%j%%i set/a n+=2 ) ) echo 10000以内总共有回文数%n%个 paus ...
h5599859 当前离线
三级士官