CrLf

因为缺了 set "res=" 呀

CrLf

写完可以看下别人的思路，感觉顶楼代码优化的余地还很大...
举几个例子：
1、与其先生成再判断查找，不如根据规则直接生成
2、已知长度在可容忍范围内时，避免用 loop 计算长度

:loop
if "!str:~%n%,1!" neq "" (
   set /a n+=1&goto loop
)
复制代码

可以简化成：

for /l %%a in (9 -1 1) do if "!str:~%%a!"=="" set n=%%a
复制代码

或更高效的：

set list=!str!987654321
set n=!list:~9,1!
复制代码

3、

   set "i=-%%i"
   call set res=!res!%%str:~!i!,1%%
复制代码

这里没必要 set "i=-%%i" 啊，可以简化成：

   set res=!res!!str:~-%%i,1!
复制代码

CrLf

回复 5# terse


其实截一半就好，判断大数字效率提升很明显

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 1 100000000) do (
    set str=%%i&set var=!str:~-1!
    set "len=%%i443322111"
    for /l %%j in (2,1,!len:~9^,1!) do set "var=!var!!str:~-%%j,1!"
    for %%j in (!len:~9^,1!) do if "!str:~,%%j!" == "!var!" echo,%%i
)
pause
复制代码

话说vbs有原生的 StrReverse，做这个还是很方便的...

For i=1 To 10000
	If StrReverse(i)=CStr(i) Then WScript.Echo i
Next
复制代码