[数值计算] [挑战]批处理输出若干个字符或数字的排列组合

舒待子

字符的排列组合，一般地，n个数字（不重复）的全排列有n!个组合方式。
这个应该好理解，比如三个字符：a b c，那么他的全排列的所有组合方式就是
a b c
a c b
b a c
b c a
c a b
c b a
----------------
现在征集代码，对指输入的n个字符，输出它的全排列

看哪个代码最快
那个代码最短小？

@echo off&title 输出任意个字符的排列组合
set/p str=输入字符，并用空格隔开
rem ------------------
rem 你的代码COPY

Batcher

回复 39# ahighhand


call :func "abcdefghijklmnopqrstuvwxyz" "" 0 > list.txt
试试这样可以吗

ahighhand

回复  ahighhand

26选3
组合排列
523066680 发表于 2019-3-17 12:47

谢谢版主！如果想直接输出到list.txt怎么修改更好些？

523066680

回复 37# 老刘1号

    那个帖子，我转发了一段迭代解法（摘自《高阶Perl》），若想要第N个结果、或者想要从第N个排列开始排，可以直接算，而不需要从头开始。
不过没什么人留意
http://www.bathome.net/redirect. ... 3749&pid=198745
http://www.code-by.org/viewtopic.php?p=814#p814

如果做多线程并行，这种迭代法就很好用，8核的CPU，8线程分别从不同的起点开始迭代。
如果是跑GPU，并发量就更大了，若是简单的加密应该可以利用这种方法，大量并发加速碰撞。

老刘1号

回复 36# 523066680


    似曾相识的感觉，happy好像也出过这个题，当时的我（菜鸡）还解不出来

523066680

回复 35# ahighhand

26选3
组合

@echo off
call :func "abcdefghijklmnopqrstuvwxyz" "" 0
pause &exit
 
:func
    setlocal
    set /a v=%3
    if %v% equ 3 (echo %~2 &goto :eof)
    if %1  == "" (goto :eof)
    set strnow=%~1
    call :func "%strnow:~1%" "%~2%strnow:~0,1%" %v%+1
    call :func "%strnow:~1%" "%~2" %v%
    endlocalCOPY

排列

@echo off &setlocal enabledelayedexpansion
set alphabet=abcdefghijklmnopqrstuvwxyz
for /l %%a in (0,1,25) do set eles=!eles! !alphabet:~%%a,1!
call :func "%eles%" "" 0
pause &exit
 
:func
    setlocal
    set /a v=%3
    if %v% equ 3 ( echo %~2 &goto :eof)
    set eles=%~1
    for %%a in ( %eles% ) do call :func "!eles:%%a=!" "%~2%%a" %v%+1
    endlocalCOPY

ahighhand

各位老师的代码都好牛！但26个字母里选3个不重复排列怎么整呢，修改哪个都没成功

CrLf

33# powerbat


噢，那是我理解问题了呵呵

powerbat

列举出来的组合数完全没重复。
排除一部分组合只是为了满足那个题目的要求

CrLf

30# powerbat


我不知道有没理解对，老兄似乎是说全部列举出来再排除重复，但是这样效率太低了，假设有7个项，每个项都能多次使用而且不排除重复的所有排列=7的7次方=823543，但是题目所要求的真正的组合=!7=5040，也就是说，后者比前者少计算了八十多万次，这是不可忍受的。
所以粗看了下大家的代码，大部分是用批处理实现!7的计算方式，以节省用时

CrLf

29# plp626


嗯，本质上确实是一样的...原先没注意看52兄的第三个代码，但是大概扫了一眼留下印象了吧，后来自己的思路也是这个路线的，汗

powerbat

最老老实实的枚举法没人关注。。。
怎样对字符串进行可重复组合？
http://www.bathome.net/viewthrea ... muid=29086#pid78176
从一组数字中取任意个数字之和在一个数值范围内
http://www.bathome.net/viewthrea ... muid=29086#pid77555

plp626

27# zm900612


注意看17楼第三个代码，我的和他的思路基本一致。。。

wankoilz

呵呵，思路撞车很正常，楼上不必在意！
plp的代码确实是不一般的精致啊，PF！！

CrLf

24# caruko
晕，原来你们早就想到了，我刚才一直没看这个贴子，不小心侵权（虽然确实是自己想的不过思路撞车是事实，而且我贴子发得比较晚…），明天上了电脑再编辑那个贴子。还有，plp兄发的函数我没看懂，明个也好好研究下