dengyuli

这是我自己的方法（原创，代码可能不好，但可以找出10000以内的回文数）：

@echo off
setlocal enabledelayedexpansion
set ctr=0
set "str="
:head
set /a ctr=ctr+1
set nm=!ctr!
if !nm! leq 99 goto:head
if !nm! leq 999 set str=!nm:~2,1!!nm:~1,1!!nm:~0,1!& goto:pd
if !nm! leq 9999 set str=!nm:~3,1!!nm:~2,1!!nm:~1,1!!nm:~0,1!& goto:pd
:pd
if /i asd!str!asd equ asd!nm!asd echo !nm!>>shu.txt
if !ctr!==10000 exit
goto:head
复制代码