[分享]批处理求排列组合

wankoilz

以前写的，最近看了论坛上资料版块说的提高效率的方法，改进了一下，效率提高了不少。
求7个字符排列组合时我电脑用1秒，如果是8个就慢了，差不多要11秒...但是比以前的代码快多了。
思路：假如求abc的排列组合。将b插入到a的前面、后面得到bc，cb。再将a插入到bc的前面、中间、后面，cb的前面、中间、后面，得到最终6个组合。
如果还有d，就继续对前面6个组合进行插空...

1. @echo off&setlocal enabledelayedexpansion
   
2. rem code by wankoilz from bbs.bathome.net
   
3. set/p chr=请输入要排列的字符,以空格分开:
   
4. set t=%time%
   
5. for %%i in (%chr%) do (set a=%%i&set/a n+=1)
   
6. set/a n-=1&set _%a%=ok&set chr=!chr:%a%=!
   
7. (for %%1 in (%chr%) do (
   
8.     set/a m+=1
   
9.     for /f "delims=_= tokens=1" %%i in ('set _') do (
   
10.     if not !n! equ !m! (
    
11.               set _%%1 %%i=ok
    
12.               set str=%%i
    
13.               for %%j in (%%i) do set _!str:%%j=%%j %%1!=ok
    
14.               set _%%i=
    
15.     ) else (
    
16.               echo %%1 %%i&set str=%%i
    
17.               for %%j in (%%i) do echo !str:%%j=%%j %%1!
    
18.    
    
19. ))))>c.txt
    
20. echo %t%
    
21. echo %time%
    
22. pause>nul

复制代码