int main()
{
int a,b,c,count=0;
printf("There are diffrent methods for XM to distribute books to 3 readers:\n");
for(a=1;a<=5;a++) /*穷举第一个人借5本书中的1本的全部情况*/
for(b=1;b<=5;b++) /*穷举第二个人借5本书中的一本的全部情况*/
for(c=1;a!=b&&c<=5;c++) /*当前两个人借不同的书时，穷举第三个人借5本书
中的1本的全部情况*/
if(c!=a&&c!=b) /*判断第三人与前两个人借的书是否不同*/
printf(count%8?"%2d:%d,%d,%d ":"%2d:%d,%d,%d\n ",++count,a,b,c);
/*打印可能的借阅方法*/
}
复制代码

@echo off&setlocal enabledelayedexpansion
set /a N=5,R=3,S=N-R,i=1,p=1,_i=R-1
for /l %%i in (1,1,%S%) do set /a "i*=(N-%%i+1),P*=%%i"
set /a i/=p,P=1
for /l %%i in (1 1 !R!) do set /a "P*=%%i,J%%i=P"&set T=10%%i&set "str=!str!#!T:~-2!
set /aP-=1
for /l %%i in (1 1 %R%) do set /a A%%i=%%i,B%%i=%%i+S&set T=10%%i&set "_!T:~-2!=%%i"
for /l %%i in (0 1 %p%) do (
    set T=!str!&set M=%%i&set #=&set "$="
    for /l %%j in (%_i% -1 1) do (
        set /a "D=M/J%%j*3,M=%%i%%J%%j"
        for %%k in (!D!) do (
            for %%l in ("!T:~%%k,3!") do (
                set #=!#! %%~l
                set T=!T:%%~l=!
            )
        )
    )
    for %%j in ("!#:#=!" "!T:#=!") do for %%k in (%%~j) do set $=!$! !_%%k!
    echo!$!
)
for /l %%a in (2 1 !i!) do (
    for /l %%i in (1 1 !R!) do if "#!A%%i!" neq "#!B%%i!" set M=%%i
    for %%i in (!M!) do set L=!A%%i!
    for /l %%j in (1 1 %R%) do (
        if %%j geq !M! set/a A%%j=L+1,L=A%%j
        set T=10%%j
        set "_!T:~-2!=!A%%j!"
    )
    for /l %%i in (0 1 %p%) do (
       set T=!str!&set M=%%i&set #=&set "$="
       for /l %%j in (%_i% -1 1) do (
           set /a "i=M/J%%j*3,M=%%i%%J%%j"
           for %%k in (!i!) do (
               for %%l in ("!T:~%%k,3!") do (
                   set #=!#! %%~l
                   set T=!T:%%~l=!
               )
           )
       )
       for %%j in ("!#:#=!" "!T:#=!") do for %%k in (%%~j) do set $=!$! !_%%k!
       ECHO!$!
   )
)

pause
复制代码