中国DOS联盟

@echo off&setlocal enabledelayedexpansion
del ts.txt>nul 2>nul
set var=1 2 3
:1
if defined var5 set var=%var5%
for %%a in (%var%) do (
        set dx=%%a
        set/a mn+=1
        set !mn!=%%a
        call :lp
)

if defined had echo 完成&pause>nul&exit/b
for /l %%a in (%mn% -1 1) do set "var5=!var5!!%%a! "
set had=had
goto 1


:lp
set var1=!var:%dx%=!
for %%a in (%var1%) do (
        set "var3=!var3!%%a "
)
>>ts.txt echo %var3%%dx%
set "%var3%%dx%=abcd"
set var3=

@echo off&setlocal enabledelayedexpansion
if exist temp.txt del /q temp.txt
:begin
set code=abcd&set str=&set n=4
:again
set /a a=%random%%%%n%
set a=!code:~%a%,1!
set code=!code:%a%=!
set str=%str%%a%
set /a n-=1
if "%str:~3%" equ "" goto again
if defined var for %%i in (%var%) do if "%%i" equ "%str%" goto begin
echo %str%>>temp.txt
set var=%var% %str%
set /a m+=1
if %m% lss 24 goto begin
sort temp.txt&del /q temp.txt
pause>nul

@echo off&setlocal enabledelayedexpansion
if exist temp.txt del /q temp.txt
:enter
cls&set /p codes=请输入字符组(字符间请用空格格开)：
if not defined codes goto enter
for %%i in (%codes%) do set /a m+=1
set /a num=1,x=m,y=m-1
:lp
set /a num*=m
set /a m-=1
if %m% neq 0 goto lp
:begin
set code=!codes: =!&set str=&set /a n=x
:again
set /a a=%random%%%%n%
set a=!code:~%a%,1!
set code=!code:%a%=!
set str=%str%%a%
set /a n-=1
if "!str:~%y%!" equ "" goto again
if exist temp.txt for /f "delims=" %%i in (temp.txt) do if "%%i" equ "%str%" goto begin
echo %str%>>temp.txt
set /a m+=1
if %m% lss %num% goto begin
cls&sort temp.txt&del /q temp.txt
pause>nul

/*本程序在TC2.0下运行通过*/
/*Algorithm 5.7 PERMUTATIONS1*/
#include<stdio.h>
int P[7];
void print(int P[],int n)
{
        int i;
        printf("\n");
        for(i=1;i<=n;i++)
                printf("%d",P[i]);
        sleep(1);
}

void perm1(int m,int n)
{
        int j,t;
        if(m==n)
                print(P,n);
        else
                for(j=m;j<=n;j++)
                {
                        t=P[j];
                        P[j]=P[m];
                        P[m]=t;
                        perm1(m+1,n);
                        t=P[j];
                        P[j]=P[m];
                        P[m]=t;
                }
}

main()
{
        int j,n;
        clrscr();
        window(35,1,46,1);
        textbackground(4);
        textcolor(128);
        clrscr();
        printf("www.cndos.cn\n");
        printf("Please input the value of n:");
        scanf("%d",&n);
        for(j=1;j<=n;j++)
                P[j]=j;
        perm1(1,n);
        printf("\nPress any key to end.");
        getch();
}

@echo off&setlocal enabledelayedexpansion
set s1=a b c
for %%a in (!s1!) do (set s2=!s1:%%a=!
  for %%b in (!s2!) do (set s3=!s2:%%b=!
    for %%c in (!s3!) do (echo %%a%%b%%c
) ) )
pause

@echo off&setlocal enabledelayedexpansion
if exist pl.txt del /q pl.txt
:enter
cls&set /p codes=请输入三个以上的字符(字符应不相同并请用空格格开)：
if not defined codes goto enter
for %%i in (%codes%) do set /a m+=1
if %m% lss 3 set m=0&goto enter
cls&echo 正在排列中，请稍候...
set /a num1=1,x=m,y=m-1
:lp
set /a num1*=m,m-=1
if %m% neq 0 goto lp
set /a num2=num1/6+1,sz=1
:begin
set code=%codes: =%&set str=&set n=%x%
:again
set /a a=%random%%%%n%,n-=1
set a=!code:~%a%,1!
set str=%str%%a%&set code=!code:%a%=!
if "!str:~%y%!" equ "" goto again
for /l %%a in (1,1,%sz%) do (
    for %%i in (!var%%a!) do (
        if "%%i" equ "%str%" goto begin

   )
)
echo %str%>>temp.txt
set var%sz%=!var%sz%! %str%
set /a m+=1,z+=1
if %z% equ 6 set /a sz+=1,z=0
if %m% neq %num1% goto begin
sort temp.txt>pl.txt&del /q temp.txt&start pl.txt

@echo off&setlocal enabledelayedexpansion
set s1=a b c e d f g
set t=%time%
for %%a in (!s1!)do (set s2=!s1:%%a=!
  for %%b in (!s2!)do (set s3=!s2:%%b=!
    for %%c in (!s3!)do (set s4=!s3:%%c=!
      for %%d in (!s4!)do (set s5=!s4:%%d=!
        for %%e in (!s5!)do (set s6=!s5:%%e=!
          for %%f in (!s6!)do (set s7=!s6:%%f=!
            for %%g in (!s7!)do (echo %%a%%b%%c%%d%%e%%f%%g
) ) ) ) ) ) )
call timediff.bat %t% %time% 0
pause