@echo off
::寒夜孤星5;那么变量中这四个字,每个字与其他字排列,不限定位数,可以存在单个文字,有多少种排列呢

setlocal enabledelayedexpansion
set han=阴阳表里寒热虚实
set m=0
set ye=abcdefghijklmnopqrstuvwxyz
:hanye
if "!han:~%m%,1!" neq "" (set s0=!s0! !han:~%m%,1! &set/a m+=1&goto :hanye)
set n=0

for %%i in (!s0!) do (
        for %%j in (!n!) do (
                set /a n+=1
                set "gu1=!gu1!for %%!ye:~%%j,1! in (^!s%%j^!) do (set s!n!=^!s%%j:%%!ye:~%%j,1!=^!^&"
                set "gu2=!gu2!%%!ye:~%%j,1!"
                set "gu3=!gu3!)"
                set xing1%%j=!gu1:~,-16!
                set xing2%%j=!gu2!
                set xing3%%j=!gu3!
        )
)

set n=0
:guxing
set gu1=!xing1%n%!
set gu2=!xing2%n%!
set gu3=!xing3%n%!
%gu1%
echo %gu2%
set /a num+=1
%gu3%
set/a n+=1
if !n! neq !m! goto guxing
if !n! == !m! echo %num%种排列方法 &pause
复制代码