中国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

Originally posted by pusofalse at 2008-6-29 11:07:
ZW前辈给出的代码也是有BUG的。。。 只能排列四个字符的组合 如果多出几个 只保留前面四个。。。 如果少了，会出现以零为除数的错误。。。
随机给出的字串，字串数量未知。。。

@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

Originally posted by pusofalse at 2008-6-29 11:35:
真是太感谢了！ 学习中~

/*本程序在TC2.0下运行通过*/

/*Algorithm 5.7 PERMUTATIONS1*/

#include<stdio.h>

int P;

void print(int P,int n)

{

	int i;

	printf("\n");

	for(i=1;i<=n;i++)

		printf("%d",P);

	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;

			P=P;

			P=t;

			perm1(m+1,n);

			t=P;

			P=P;

			P=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;

	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

Originally posted by plp626 at 2008-6-29 14:07:
7位用时2.28秒
timediff.bat 可在论坛p函数库里找到（用于计算两个时间点的差值）

@echo off&setlocal enabledelayedexpansion

set s1=a b c e d f g

set t=%time%

f ...