字符串全排列

setlocal&set "s=%~1 "&if "!s: =!" == ""  (echo %~2)else for %%b in (%~1)do call:perm "!s:%%b =!" "%~2 %%b"COPY

from itertools import permutations as pm
 
for r in pm("bathome"):
    print(''.join(r))COPY

function arrange(str) {
    str = str + '';
    if (str.length <= 1) {
        return [str];
    }
    var aStrRest = arrange(str.slice(1));
    var sFirst = str.charAt(0);
    var item;
    var aReturn = [];
    for (var i = 0, l = aStrRest.length; i < l; i++) {
        item = aStrRest[i];
        for (var j = 0, litem = item.length; j <= litem; j++) {
            aReturn.push(item.slice(0, j) + sFirst + item.slice(j));
        }
    }
    return aReturn;
}
console.log(arrange('bathome').join('\n'));COPY

@echo off & setlocal enabledelayedexpansion & mode 160, 1000
set z=1;
set z
for /L %%j in (2 1 6) do (
    set /a k=%%j-1
    set x=
    for /L %%i in (1 1 !k!) do (
        set t=!z:%%i=%%j!
        set x=!x!!t:;=%%i;!
    )
    set z=!z:;=%%j;!!x!
    set z
)
echo;complete 6
REM 7个元素的全排列用带分隔符的单变量存储超出批处理变量存储极限, 只能另行处理
REM 数字形式
REM echo;!z:;=7;!
REM for /L %%i in (1 1 6) do (
    REM set t=!z:%%i=7!
    REM echo;!t:;=%%i;!
REM )
 
set t7=!z:;=e;!
for /L %%i in (1 1 6) do (
    set t%%i=!z:%%i=e!
    set t%%i=!t%%i:;=%%i;!
)
for /L %%i in (1 1 7) do (
    for %%Q in (1:b 2:a 3:t 4:h 5:o 6:m) do for /f "tokens=1-2 delims=:" %%W in ("%%Q") do set t%%i=!t%%i:%%W=%%X!
    echo;!t%%i:;= !
)
 
echo;complete 7
pause
exitCOPY

Permutations[{b,a,t,h,o,m,e}]COPY

StringJoin /@ Permutations[Characters["bathome"]]COPY

@echo off
REM %str%为要排列的字符串，但不能含"^
set "str=|&<>bat"
call :arrange "%str%"
pause
exit /b
:arrange
setlocal
set "s=%~1"
if not defined s (
    call :escape "%~2"
    call echo,%%r%%
    goto end
)
set /a "n=0"
:loop
set /a "m=n+1"
call set "pre=%%s:~%n%,1%%"
call set "rest=%%s:~,%n%%%%%s:~%m%%%"
if not defined pre goto end
call :arrange "%rest%" "%~2%pre%"
set /a "n+=1"
goto loop
:end
endlocal
exit /b
:escape
set "r=%~1"
set "r=%r:^=^^%"
set "r=%r:&=^&%"
set "r=%r:|=^|%"
set "r=%r:<=^<%"
set "r=%r:>=^>%"
set "r=%r:"=^"%"
exit /bCOPY

@echo off
powershell ^
	function perm($str, $t){^
		$len=$str.length;^
		if($len -le 1){$t+''+$str}else{^
		for($i=0; $i -lt $len; ++$i)^
		{^
			perm ($str.Substring(0, $i)+''+$str.Substring($i+1, $len-$i-1)) ($t+''+$str[$i]);^
		}}^
	}^
	perm 'bathome';
pauseCOPY