【练习-020】批处理根据输入列出组合

terse

如输入a b a


输入 a b c d e a b

写了一个效率很不高到7位的话 就要近50秒
难度是要能处理相同字符组合
贴出就加分
2天后来加分

pusofalse

这题的难度好像不在于相同的字符，对我来说，如何排列才是最难的。头疼，排列组合。。。

huahua0919

楼主的a b a 组合其中有相同的,怎么算组合(排列组合不允许有相同的组合)

[ 本帖最后由 huahua0919 于 2008-9-1 09:55 编辑 ]

Batcher

楼主的题目要求是"列出组合"，而不是"列出排列组合"，因此应该允许重复的字符出现吧。

flyinspace

原帖由 terse 于 2008-9-1 01:36 发表
如输入a b a
274

输入 a b c d e a b
275
写了一个效率很不高到7位的话 就要近50秒
难度是要能处理相同字符组合
贴出就加分
2天后来加分

去掉重复的?对楼主来说会难么?

再其中的输出加上一句.

if not 输出==true (
      set 输出=true
      echo 输出
)

当然这里我更情愿用临时文件的方法来解决。

type 临时文件 | findstr /r "^输出$"
if errorlevel 1 ***

至于程序算法...天啊。.代码太长了。

terse

原帖由 huahua0919 于 2008-9-1 09:40 发表
楼主的a b a 组合其中有相同的,怎么算组合(排列组合不允许有相同的组合)

可能是我的表述有问题
我的意思是:输入3个字符应该是6种组合  输入4个字符应该是24种组合  输入5个字符应该是120种组合
不管输入有无重复字符 也就是如果输入a a a a a 就要输出120行 a a a a a 实际上最后一行的第一位并不一定是第一排的第一位的a
这样的表述是否清楚？
下面是个效率不错的组合输出：但输入的组合不能有重复字符 而且是固定位数

@echo off&setlocal enabledelayedexpansion
set var=a b c d c d e f
for %%i in (!var!) do (
    set var1=!var:%%i=!
    for %%j in (!var1!) do (
    set var2=!var1:%%j=!
    for %%k in (!var2!) do (
    set var3=!var2:%%k=!
    for %%l in (!var3!) do (
    set var4=!var3:%%l=!
    for %%m in (!var4!) do (
    set var5=!var4:%%m=!
    for %%n in (!var5!) do (
    set var6=!var5:%%n=!
    set/a flag+=1
    echo %%i %%j %%k %%l %%m %%n !var6: =!
    ))))))
    echo 共有%flag%个组合
pause
复制代码

[ 本帖最后由 terse 于 2008-9-2 16:12 编辑 ]

pusofalse

有重复字符很简单啊。

set var=a b c a b
for %%a in (%var%) do set/a nn+=1&set .!nn!=%%a
for /l %%a in (1 1 %nn%) do set "str=!str!%%a "
for %%i in (!str!) do (
 ....
 ....
echo !.%%i! !.%%j! !.%%k! !.%%l! !.%%m!
复制代码

terse

原帖由 pusofalse 于 2008-9-2 16:17 发表
有重复字符很简单啊。set var=a b c a b
for %%a in (%var%) do set/a nn+=1&set .!nn!=%%a
for /l %%a in (1 1 %nn%) do set "str=!str!%%a "
for %%i in (!str!) do (
....
....
echo !.%%i! !.%%j! !.%%k ...

啊？不会吧！
你的%%j  %%k 是预先写入的？前面虽然得到位数但 并没表示到%%K吧

pusofalse

@echo off&setlocal enabledelayedexpansion
set str=a b a
for %%a in (%str%) do set /a n+=1& set .!n!=%%a&set "var=!var!!n! "
for %%i in (!var!) do (
    set var1=!var:%%i=!
    for %%j in (!var1!) do (
    set var2=!var1:%%j=!
    for %%k in (!var2!) do (
    set/a flag+=1
    echo !.%%i! !.%%j! !.%%k!
    )))
    echo 共有%flag%个组合
pause
复制代码

batman

一直觉得穷举法不是批处理的强项，尤其是在不知道有多少位数字或字母的情况下，更是难
以写出通用的代码，本人以前写过一个适用于9位内数字或字母排列的代码，实际上到了8位
就已经达到了效率的极限了。。。

terse

原帖由 pusofalse 于 2008-9-2 16:49 发表
@echo off&setlocal enabledelayedexpansion
set str=a b a
for %%a in (%str%) do set /a n+=1& set .!n!=%%a&set "var=!var!!n! "
for %%i in (!var!) do (
    set var1=!var:%%i=!
    for %%j in (!var1!) ...

输入4位  输出时少了一位
确切的是输入3位数上 输出仍输出3位

terse

原帖由 batman 于 2008-9-2 17:00 发表
一直觉得穷举法不是批处理的强项，尤其是在不知道有多少位数字或字母的情况下，更是难
以写出通用的代码，本人以前写过一个适用于9位内数字或字母排列的代码，实际上到了8位
就已经达到了效率的极限了。。。

穷举法确实不是批处理的强项  即便出一个通用的代码 也是效率的代价

pusofalse

这样的题用递归来做比较好些，否则用我这样的方法，还是一样只是穷举，而且不通用，太臃肿，4个字符只能再加一个for，若有5个字符就得用5个for。
完全是不通用的。

terse

抛个砖  这样的处理效率肯定不是很高  后来者突破吧

@echo off&setlocal enabledelayedexpansion
set/p str=请输入(空格隔开)
for %%i in (!str!) do set/a n+=1&set !n!=%%i
    call:lp
    echo %mn% 个组合
    pause&exit
:lp
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 :lp "%~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
复制代码

523066680

哈哈 可以用来做概率题