递归写三位十以内数字排列组合

@echo off
setlocal enabledelayedexpansion
set len=3
call:digui !len!
echo !len!位10以内数字组合完毕！
pause
exit

:digui
for /l %%a in (1,1,10) do (
if %1 geq 1 (
set /a num=%1-1
call:digui !num! %2%%a
) else (
echo %2>>%userprofile%\desktop\digui10.txt
set len=3
goto :eof
)
)