排列组合 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

感谢这么多高手，非常完美！

不过现在又有新问题，如输入字符有重复，如：13543 。用楼上的代码可以完美的得到所有打乱顺序的组合。但如果这5个字符中如有重复的字符，那输出的结果中也就会有完全一样的多个字符串。
如例中 13543 会生成如下结果，每个组合都出现了两次，有什么办法可让它生成的时候不重复多余的一样的字符串？
----------------------------------list.x----------------------------------------------
13543
13534
13453
13435
13354
13345
15343
............
13345
33541
33415
33451
35134
35143
35314
35341
35413
35431
34135
34153
34315
34351
34513
34531
-----------------------------------------------end------------------------------------------

[ Last edited by clian76 on 2008-12-21 at 04:37 ]

先删除输入字符串中的重复字符，再排列组合行不？

无临时文件


@echo off&setlocal enabledelayedexpansion
set/p str=请输入字符:
:lp
if defined str (
   set num=!str:~,1!
   if not defined ..!num! (
      set /a n+=1
      set ..!num!=b
      set "_!n!=!str:~,1!"&set "str=!str:~1!"
      goto lp
      ) else (
      set "str=!str:~1!"
      goto lp
    ))
    call:next
    echo %mn% 个组合
    pause&exit
:next
set/a m+=1
   if %m% leq %n% for /l %%i in (1 1 %n%) do (
      for %%j in (%~1) do set .%%j=%%j
        if not defined .%%i call :next "%~1 %%i"
          for /l %%k in (1 1 %n%) do set .%%k=
        ) else (
          for /l %%l in (1 1 %n%) do set .%%l=
          for %%m in (%~1) do set/p=!_%%m!<nul
          echo.
          set/a mn+=1
         )
          set/a m-=1

在batman兄的代码上简化下有临时文件


@echo off&setlocal enabledelayedexpansion
set/p str=请输入字符:
:lp
   set num=!str:~,1!
   if not defined .!num! (
      set str1=!str1!!num!
      set /a n+=1
      set .!num!=b
      set "_!n!=!str:~,1!"&set "str=!str:~1!"
      if defined str goto lp
      )else (
      set "str=!str:~1!"
      if defined str goto lp
    )
set/a n-=1
>b.bat echo @echo off^&setlocal enabledelayedexpansion
>>b.bat echo set "str=%str1%"
>>b.bat echo for /l %%%%i in (0 1 %n%) do set _%%%%i=^^!str:~%%%%i,1^^!^&set var0=^^!var0^^! %%%%i
for /l %%i in (0 1 %n%) do (
set/a m+=1
if !m! gtr %n% (
>>b.bat echo for %%%%%%i in (^^!var%%i^^!^) do echo !var!^^!_%%%%%%i^^!)else (
>>b.bat echo for %%%%%%i in (^^!var%%i^^!^) do ^(set "var!m!=^!var%%i:%%%%%%i=^!"
        set "var=!var!^!_%%%%%%i^!"
        set "k=!k!^)"
        ))
>>b.bat echo set/a t+=1
>>b.bat echo %k%
>>b.bat echo echo %%t%% 个组合
call "b.bat"
del "b.bat"
pause>nul

[ Last edited by terse on 2008-12-24 at 03:12 ]

测试了一下楼上的代码，还是没达到想要的要求。楼上的代码只是告诉共有多少种组合。但并没有排除已存在的重复组合。
我的办法是在生成了一个文件后用FINDSTR再自我查找一次，过滤掉重复的字符串，
只是麻烦点。希望高手整个简便的就好了。
最后再次谢谢高手们！都太厉害了！

Originally posted by clian76 at 2008-12-23 13:49:
测试了一下楼上的代码，还是没达到想要的要求。楼上的代码只是告诉共有多少种组合。但并没有排除已存在的重复组合。
我的办法是在生成了一个 ...

重新修正一下
删除输入字符串中的重复字符后再组合不知符合要求否？

修改过


@echo off&setlocal enabledelayedexpansion
call :func "0" "" "abcdef"
pause &exit
:func
set str=%~3
if "%str:~1%"=="" (set /a na=%~1+1
                   echo,%~2%str%
                   goto :eof)
set na=0
:loop
 set /a nb=na+1
 call :func "%na%" "%~2!str:~%na%,1!" "!str:~0,%na%!!str:~%nb%!"
 set str=%~3
 if not "!str:~%na%!"=="" goto :loop
 set /a na=%~1+1

第31楼　clian76	发表于 2008-12-21 04:21
中级用户　发帖 162　积分 363
感谢这么多高手，非常完美！

第32楼　clian76	发表于 2008-12-21 04:36
中级用户　发帖 162　积分 363
不过现在又有新问题，如输入字符有重复，如：13543 。用楼上的代码可以完美的得到所有打乱顺序的组合。但如果这5个字符中如有重复的字符，那输出的结果中也就会有完全一样的多个字符串。如例中 13543 会生成如下结果，每个组合都出现了两次，有什么办法可让它生成的时候不重复多余的一样的字符串？ ----------------------------------list.x---------------------------------------------- 13543 13534 13453 13435 13354 13345 15343 ............ 13345 33541 33415 33451 35134 35143 35314 35341 35413 35431 34135 34153 34315 34351 34513 34531 -----------------------------------------------end------------------------------------------ [ Last edited by clian76 on 2008-12-21 at 04:37 ]

第33楼　HAT	发表于 2008-12-21 11:34
版主　发帖 5,017　积分 9,023
Re 32楼先删除输入字符串中的重复字符，再排列组合行不？

第34楼　terse	发表于 2008-12-21 17:53
银牌会员　发帖 946　积分 2,404
无临时文件 @echo off&setlocal enabledelayedexpansion set/p str=请输入字符: :lp if defined str ( set num=!str:~,1! if not defined ..!num! ( set /a n+=1 set ..!num!=b set "_!n!=!str:~,1!"&set "str=!str:~1!" goto lp ) else ( set "str=!str:~1!" goto lp )) call:next echo %mn% 个组合 pause&exit :next set/a m+=1 if %m% leq %n% for /l %%i in (1 1 %n%) do ( for %%j in (%~1) do set .%%j=%%j if not defined .%%i call :next "%~1 %%i" for /l %%k in (1 1 %n%) do set .%%k= ) else ( for /l %%l in (1 1 %n%) do set .%%l= for %%m in (%~1) do set/p=!_%%m!<nul echo. set/a mn+=1 ) set/a m-=1 在batman兄的代码上简化下有临时文件 @echo off&setlocal enabledelayedexpansion set/p str=请输入字符: :lp set num=!str:~,1! if not defined .!num! ( set str1=!str1!!num! set /a n+=1 set .!num!=b set "_!n!=!str:~,1!"&set "str=!str:~1!" if defined str goto lp )else ( set "str=!str:~1!" if defined str goto lp ) set/a n-=1 >b.bat echo @echo off^&setlocal enabledelayedexpansion >>b.bat echo set "str=%str1%" >>b.bat echo for /l %%%%i in (0 1 %n%) do set _%%%%i=^^!str:~%%%%i,1^^!^&set var0=^^!var0^^! %%%%i for /l %%i in (0 1 %n%) do ( set/a m+=1 if !m! gtr %n% ( >>b.bat echo for %%%%%%i in (^^!var%%i^^!^) do echo !var!^^!_%%%%%%i^^!)else ( >>b.bat echo for %%%%%%i in (^^!var%%i^^!^) do ^(set "var!m!=^!var%%i:%%%%%%i=^!" set "var=!var!^!_%%%%%%i^!" set "k=!k!^)" )) >>b.bat echo set/a t+=1 >>b.bat echo %k% >>b.bat echo echo %%t%% 个组合 call "b.bat" del "b.bat" pause>nul [ Last edited by terse on 2008-12-24 at 03:12 ]

第35楼　clian76	发表于 2008-12-23 13:49
中级用户　发帖 162　积分 363
测试了一下楼上的代码，还是没达到想要的要求。楼上的代码只是告诉共有多少种组合。但并没有排除已存在的重复组合。我的办法是在生成了一个文件后用FINDSTR再自我查找一次，过滤掉重复的字符串，只是麻烦点。希望高手整个简便的就好了。最后再次谢谢高手们！都太厉害了！

第36楼　terse	发表于 2008-12-24 03:14
银牌会员　发帖 946　积分 2,404
Originally posted by clian76 at 2008-12-23 13:49: 测试了一下楼上的代码，还是没达到想要的要求。楼上的代码只是告诉共有多少种组合。但并没有排除已存在的重复组合。我的办法是在生成了一个 ... 重新修正一下删除输入字符串中的重复字符后再组合不知符合要求否？

第37楼　523066680	发表于 2009-12-13 10:23
银牌会员　发帖 1,133　积分 2,362
修改过 @echo off&setlocal enabledelayedexpansion call :func "0" "" "abcdef" pause &exit :func set str=%~3 if "%str:~1%"=="" (set /a na=%~1+1 echo,%~2%str% goto :eof) set na=0 :loop set /a nb=na+1 call :func "%na%" "%~2!str:~%na%,1!" "!str:~0,%na%!!str:~%nb%!" set str=%~3 if not "!str:~%na%!"=="" goto :loop set /a na=%~1+1