中国DOS联盟

　　给出一个纯数值文本，一行一条记录，无空行，求这一列数值所有不同组合的和(行号相同而数值出现顺序不同的组合视为同一组合)，要求输出格式为 n1+n2+n3=sum。

　　比如文本内容为：

1

2

3

4

5

　　要求输出的格式为(次序可以打乱)：

1+2=3

1+3=4

1+4=5

1+5=6

2+3=5

2+4=6

2+5=7

3+4=7

3+5=8

4+5=9

1+2+3=6

1+2+4=7

1+2+5=8

1+3+4=8

1+3+5=9

1+4+5=10

2+3+4=9

2+3+5=11

3+4+5=12

1+2+3+4=10

1+2+3+5=11

1+3+4+5=13

2+3+4+5=14

1+2+3+4+5=15

　　1+2+3=6 和 2+1+3=6 视作同一组合。

[ Last edited by namejm on 2006-12-29 at 09:55 PM ]

namejm兄的意思是一个文本中每一行都有一个数字(大概二十个数), 要计算出这些数字所有可能的和.

test.txt

1

2

3

要求用批处理处理后的结果为:

1+2=3

1+3=4

2+3=5

1+2+3=6

@echo off

SETLOCAL ENABLEDELAYEDEXPANSION

for /f "tokens=1,2 delims=:" %%i in ('findstr /n . 1.txt') do (

set /a n%%i=%%j

set /a nnum=%%i

)

if "nnum" == "1" echo %n1%=%n1% && goto :eof

:num

set sum=

set sumf=

set /a num+=1

set /a num_1=%num%+1

set /a nnum_1=%nnum%-1

for /l %%i in (%num% 1 %nnum%) do (

call set /a sum=!sum!+%%n%%i%%

call set sumf=!sumf!+%%n%%i%%

if "!sumf!" == "+!sum!" (set sumf=!sumf:~1!) ELSE (echo !sumf!=!sum!)

)

for /l %%i in (%num_1% 1 %nnum_1%) do (

call set /a sum=!sum!-%%n%%i%%

call set sumf=!sumf:+%%n%%i%%=!

echo !sumf!=!sum!)

)

if %num% lss %nnum% goto :num

pause

代码并不完善，下面这个替换不知道应该怎么写，希望大家指正
call set sumf=!sumf:+%%n%%i%%=!

顶起来！想知道。

a9319751 兄的代码错误较多，发现的错误有丢失了组合、重复、部分计算结果错误等。

namejm 兄提出的这个问题，非常复杂。我一直没有找到好的方法，现在我能完成的最好情况也丢失 4 组组合，我知道问题出在哪里，苦于没有办法转换成有效的批处理语句。
先帖一下代码，以后有时间再完善吧，希望能看到哪位兄弟完成这个题目。

1. @echo off
   
2. setlocal ENABLEDELAYEDEXPANSION
   
3. set n=0
   
4. set file=%1
   
5. set yinzi=
   
6. for /f "delims=" %%a in (%file%) do (
   
7. set /a n+=1
   
8. call :sub %%a !n!
   
9. )
   
10. goto :EOF
    
11. 
    
12. :sub
    
13. for /f "tokens=1,2* delims=:" %%a in ('more +%2 %file%^|findstr /n .') do (
    
14. call set yinzi%%a=%1
    
15. for /l %%m in (1,1,%%a) do (
    
16. call set yinzi%%m=!!yinzi%%m!! + %%b
    
17. call set /p x=!!yinzi%%m!! = <nul
    
18. call set /a x=!!yinzi%%m!!
    
19. echo !x!
    
20. )
    
21. )
    
22. goto :EOF
    

无奈何发表于 2006-12-30 16:25

输出结果：

1 + 2 = 3

1 + 2 + 3 = 6

1 + 3 = 4

1 + 2 + 3 + 4 = 10

1 + 3 + 4 = 8

1 + 4 = 5

1 + 2 + 3 + 4 + 5 = 15

1 + 3 + 4 + 5 = 13

1 + 4 + 5 = 10

1 + 5 = 6

2 + 3 = 5

2 + 3 + 4 = 9

2 + 4 = 6

2 + 3 + 4 + 5 = 14

2 + 4 + 5 = 11

2 + 5 = 7

3 + 4 = 7

3 + 4 + 5 = 12

3 + 5 = 8

4 + 5 = 9

丢失项：

1+2+4=7

1+2+5=8

1+3+5=9

2+3+5=11

也贴一段效率不怎样高的代码：

@echo off

setlocal enabledelayedexpansion



for /f %%i in (test.txt) do (

   set flag=%%i



REM ===========================

REM 删除重复行；

Rem ===========================

   if not defined !flag! (

      set %%i=A



REM ===========================

REM 获取文件行数；

Rem ===========================



      set /a CYC_num_+=1

      set str=%%i !str!))



REM ===========================

REM 设置下个for循环次数；

Rem ===========================

set /a CYC_num=%CYC_num_%-3







call :test str

for /l %%i in (1 1 %CYC_num%) do call :test Res

pause>nul

:test 

for /f "delims== tokens=2" %%i in ('set %1') do (

   set tem=%%i

   for %%a in (%%i) do (

      set flag=!tem:%%a =!

      if not defined !flag! (

          set var=

          set num=

          set /a a+=1

          set Res!a!=!tem:%%a =!

          call :Get_SUM %%Res!a!%%

          set !flag!=A

      )

   )

)

goto :eof



:Get_SUM

    if not "%1"=="" (

        set var=%1+!var!

        set /a num+=%1

        shift

        goto :Get_SUM) 

     echo !var:~0,-1!=!num!

说明：文本文件test.txt中的数字至少需要不重复的三行！

Originally posted by 无奈何 at 2006-12-31 05:38 AM:
a9319751 兄的代码错误较多，发现的错误有丢失了组合、重复、部分计算结果错误等。

namejm 兄提出的这个问题，非常复杂。我一直没有找到好的方法..

这个问题我非常关注，能讲一下思路吗？
其他高手也可以讲一下，
在这里先谢过了。

此类问题使用递归算法思路要清晰的多

多层循环虽然也可以实现，不过非常难于编写和阅读

下面是一个递归的例子

@echo off

setlocal enabledelayedexpansion



for /f %%n in (test.txt) do (

    set /a i+=1

    set gn!i!=%%n

)

set gn

pause



for /l %%j in (1,1,%i%) do call :rec %%j

pause

goto :eof



:rec

setlocal



call set tmp=%%gn%1%%

set /a sum+=%tmp%

set /a lvl+=1

if %lvl% gtr 1 (

    set exp=%exp%+%tmp%

    set /a idx+=1

    echo !idx!:!exp!=%sum%

) else (set exp=%tmp%)



set /a nxt=%1+1

for /l %%j in (%nxt%,1,%i%) do call :rec %%j



endlocal & set idx=%idx%

goto :eof

[ Last edited by qzwqzw on 2006-12-31 at 01:48 PM ]

佩服！不但实现结果，还能显示到底有多少组组合

几位的代码确实精彩，蕴含着智慧和厚重的知识积累，是我学习的榜样。

如题．我的test.txt的内容为：
１
２
３
运行结果是：
gn1=1
gn2=2
gn3=3
请按任意键继续. . .
1:1+2=3
2:1+2+3=6
3:1+3=4
4:2+3=5
请按任意键继续. . .
不知是．．．．

9楼 qzwqzw

我只能加两分,你的代码拿回家仔细看...

没看出来排除重复组合部分啊?

--------------------
我先慢慢看,
现在第一个pause之前完全理解了.....
---------------------
在 :rec 这转不出来了.............

谁能告诉我那个 %1 是怎么回事吗????
------------------------------------
知道 += 是怎么回事了........原来和C差不多....
------------------------------------
......
ECHO ON了之后
代码对着结果顺下来一遍.....
:rec 还是不大理解....
-------------------------
再看,一定看明白了~学C的时候递归就没学好,这次一定努力一下.......
----------------------
明白了......看懂了!

[ Last edited by tghksj on 2007-1-1 at 11:58 AM ]

加错分了！！！！

几天假期多了不少好东西....

9楼的递归确实是妙,但考虑到效率最好避开FOR的嵌套和CALL递归.

不支持重复数.

@echo off&setlocal enabledelayedexpansion

set n=1

for /f %%n in (test.txt) do (

    set /a i+=1

    set str!i!=%%n

)

set str

pause&echo.



:loop

set/a n+=1

if not defined str%n% goto end

for /f "tokens=1* delims==" %%a in ('set result 2^>nul') do (

set/a x+=1

set result!x!=%%b+!str%n%!

)

set/a f=n-1

if not defined flag!str%n%! for /l %%j in (1,1,%f%) do (

set/a x+=1

set result!x!=!str%%j!+!str%n%!

)

set/a flag!str%n%!+=1

goto :loop



:end

for /f "tokens=1* delims==" %%a in ('set result 2^>nul') do (

set/a id+=1

set/a %%a=%%b

echo !id!:%%b=!%%a!

)

pause&goto :eof