[数值计算] [已解决]找出10000以内的所有回文数的批处理代码错在哪里？

悬崖之树

@echo off

setlocal enabledelayedexpansion

for /l %%i in (1 1 10000) do (
   set str=%%i
   set /a n=0
   call :loop
   if !str!==!res! echo %%i   
)
pause
:loop
if "!str:~%n%,1!" neq "" (
   set /a n+=1&goto loop
)
for /l %%i in (1 1 %n%) do (
   set "i=-%%i"
   call set res=!res!%%str:~!i!,1%%
)
复制代码

下面的代码也不行：

@echo off

setlocal enabledelayedexpansion

for /l %%i in (1 1 10000) do (
   set str=%%i
   set /a n=0
   call :loop
   if !str!==!res! echo %%i   
)
pause
:loop
call set t=%%str:~!n!,1%%
if "!t!" neq "" (
   set res=!t!!res!
   set /a n+=1
   goto loop
)
复制代码

我的算法是把10000以内的所有的数反写，如果反写后的数和正写的数一样的话，就认为是回文数。

悬崖之树

回复 3# CrLf

谢谢 crlf 的提醒，让我茅塞顿开啊。