CrLf

29# plp626


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

CrLf

30# powerbat


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

powerbat

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

CrLf

33# powerbat


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

ahighhand

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

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%
    endlocal
复制代码

排列

@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
    endlocal
复制代码

老刘1号

回复 36# 523066680


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

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，并发量就更大了，若是简单的加密应该可以利用这种方法，大量并发加速碰撞。

ahighhand

回复  ahighhand

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

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

Batcher

回复 39# ahighhand


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