Bella

@echo off
set /a gender[father]=gender[son]=1,gender[mother]=gender[daughter]=0
set /a age[father]=3,age[mother]=2
call :perm " father mother son daughter"
pause&exit

:perm
setlocal enabledelayedexpansion
set "chars=%~1"
if "!chars!" == "" (
    for %%i in (son daughter) do (
        set /a age[son]=age[daughter]=1,age[%%i]=0
        for /f "tokens=1-4" %%a in (%2) do (
if !age[%%c]! GTR !age[%%b]! if !gender[%%c]! NEQ !gender[%%d]! ^
if "%%i" NEQ "%%a" if !gender[%%i]! NEQ !gender[%%b]! if !gender[%%d]! NEQ 1 ^
echo murderer:%%a victim:%%b accomplice:%%c witness:%%d
        )
    )
) else for %%j in (%~1) do call :perm "!chars: %%j=!" "%~2 %%j"
复制代码