数值比较 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

借了楼上的思路

@echo off&setlocal enabledelayedexpansion
for %%a in (1 2) do (
   set/p $%%a=输入第 %%a 组:
   set n=0
   for %%b in (!$%%a!) do (set /a n+=1&set $%%a-%%b=1&set $%%a-%%b-!n!=1)
)
set/a n=0,$a=0,$b=0
for %%a in (%$1%) do (
   set /a n+=1
   if defined $2-%%a-!n! set /a $a+=1&set $2-%%a=
   if defined $2-%%a set /a $b+=1
)
echo %$a%A%$b%B
pause

要考虑的问题还真多，下面的可以了：

@echo off
:lp
endlocal&setlocal enabledelayedexpansion
for %%a in (1 2) do (
   set/p $%%a=输入第 %%a 组:
   set n=0
   for %%b in (!$%%a!) do (set /a n+=1&set/a $%%a.%%b +=1&set $%%a.%%b.!n!=1)
)
set/a n=0,$a=0,$b=0
for %%a in (%$1%) do (
   set /a n+=1
   if defined $2.%%a.!n! (set /a $a+=1,$2.%%a -=1) else set st=!st! %%a
)
for %%a in (%st%) do if !$2.%%a! gtr 0  set /a $b+=1,$2.%%a -=1

echo %$a%A%$b%B&echo;&echo;&goto :lp

[ Last edited by netbenton on 2010-12-1 at 01:28 ]

在方法1和方法2中，都可以把

for /l %%a in (1,1,%Ye1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set Gu1=!Gu1:%%a =!

改成

for %%a in (%Gu1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set Gu1=!Gu1:%%a =!

[ Last edited by Hanyeguxing on 2010-12-2 at 09:52 ]

方法1和方法2中，除了定义变量组外，还定义了一个序号变量（Gu1、Gu2），获取A、B的值，都可以通过循环这个序号变量完成，如果不去定义这个序号变量，还可以通过删除变量组中用过的变量来完成：

@echo off&setlocal enabledelayedexpansion
for %%a in (1 2) do set Xing%%a=0&set/p Han%%a=输入第 %%a 行字符:
for %%a in (%Han1%) do set/a Ye1+=1&set #!Ye1!=%%a
for %%a in (%Han2%) do set/a Ye2+=1&set @!Ye2!=%%a
for /l %%a in (1,1,%Ye1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set #%%a=&set @%%a=
for %%a in (%Han1%) do (
        set/a Gu1+=1,Gu2=0
        for %%b in (%Han2%) do (
                set/a Gu2+=1
                if "%%a"=="%%b" if defined #!Gu1! if defined @!Gu2! set/a Xing2+=1&set #!Gu1!=&set @!Gu2!=
))
echo %Xing1%A%Xing2%B&pause&exit

@echo off&setlocal enabledelayedexpansion
for %%a in (1 2) do set Xing%%a=0&set/p Han%%a=输入第 %%a 行字符:
for %%a in (%Han1%) do set/a Ye1+=1&set #!Ye1!=%%a
for %%a in (%Han2%) do set/a Ye2+=1&set @!Ye2!=%%a
for /l %%a in (1,1,%Ye1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set #%%a=&set @%%a=
call:Han %Han1%
echo %Xing1%A%Xing2%B&pause&exit
:Han
set/a Gu1+=1,Gu2=0
for %%a in (%Han2%) do (
        set/a Gu2+=1
        if "%%a"=="%1" if defined #!Gu1! if defined @!Gu2! set/a Xing2+=1&set #!Gu1!=&set @!Gu2!=
)
shift
if not "%1"=="" goto:Han

[ Last edited by Hanyeguxing on 2010-12-2 at 10:27 ]

Hanyeguxing 的2,3,4种方法，对下例组合，测试结果不对:

1 1 2 2 1 1 1
2 1 2 1 1 1 2

Originally posted by netbenton at 2010-12-2 04:36:
Hanyeguxing 的2,3,4种方法，对下例组合，测试结果不对:

1 1 2 2 1 1 1
2 1 2 1 1 1 2

实际测试方法1和2没问题，3和4错误
究其原因是方法3和4在设计思路上就是错误的，因为是否优先获得A的全部值，结果很可能不同。
汗一个先，已经修改了。。。

[ Last edited by Hanyeguxing on 2010-12-2 at 10:16 ]

第16楼　netbenton	发表于 2010-12-01 20:28
银牌会员　发帖 752　积分 1,916　来自广西
借了楼上的思路 @echo off&setlocal enabledelayedexpansion for %%a in (1 2) do ( set/p $%%a=输入第 %%a 组: set n=0 for %%b in (!$%%a!) do (set /a n+=1&set $%%a-%%b=1&set $%%a-%%b-!n!=1) ) set/a n=0,$a=0,$b=0 for %%a in (%$1%) do ( set /a n+=1 if defined $2-%%a-!n! set /a $a+=1&set $2-%%a= if defined $2-%%a set /a $b+=1 ) echo %$a%A%$b%B pause 要考虑的问题还真多，下面的可以了： @echo off :lp endlocal&setlocal enabledelayedexpansion for %%a in (1 2) do ( set/p $%%a=输入第 %%a 组: set n=0 for %%b in (!$%%a!) do (set /a n+=1&set/a $%%a.%%b +=1&set $%%a.%%b.!n!=1) ) set/a n=0,$a=0,$b=0 for %%a in (%$1%) do ( set /a n+=1 if defined $2.%%a.!n! (set /a $a+=1,$2.%%a -=1) else set st=!st! %%a ) for %%a in (%st%) do if !$2.%%a! gtr 0 set /a $b+=1,$2.%%a -=1 echo %$a%A%$b%B&echo;&echo;&goto :lp [ Last edited by netbenton on 2010-12-1 at 01:28 ]

第17楼　Hanyeguxing	发表于 2010-12-01 22:51
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
在方法1和方法2中，都可以把for /l %%a in (1,1,%Ye1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set Gu1=!Gu1:%%a =!改成for %%a in (%Gu1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set Gu1=!Gu1:%%a =! [ Last edited by Hanyeguxing on 2010-12-2 at 09:52 ]

第18楼　Hanyeguxing	发表于 2010-12-02 04:07
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
方法1和方法2中，除了定义变量组外，还定义了一个序号变量（Gu1、Gu2），获取A、B的值，都可以通过循环这个序号变量完成，如果不去定义这个序号变量，还可以通过删除变量组中用过的变量来完成： @echo off&setlocal enabledelayedexpansion for %%a in (1 2) do set Xing%%a=0&set/p Han%%a=输入第 %%a 行字符: for %%a in (%Han1%) do set/a Ye1+=1&set #!Ye1!=%%a for %%a in (%Han2%) do set/a Ye2+=1&set @!Ye2!=%%a for /l %%a in (1,1,%Ye1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set #%%a=&set @%%a= for %%a in (%Han1%) do ( set/a Gu1+=1,Gu2=0 for %%b in (%Han2%) do ( set/a Gu2+=1 if "%%a"=="%%b" if defined #!Gu1! if defined @!Gu2! set/a Xing2+=1&set #!Gu1!=&set @!Gu2!= )) echo %Xing1%A%Xing2%B&pause&exit @echo off&setlocal enabledelayedexpansion for %%a in (1 2) do set Xing%%a=0&set/p Han%%a=输入第 %%a 行字符: for %%a in (%Han1%) do set/a Ye1+=1&set #!Ye1!=%%a for %%a in (%Han2%) do set/a Ye2+=1&set @!Ye2!=%%a for /l %%a in (1,1,%Ye1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set #%%a=&set @%%a= call:Han %Han1% echo %Xing1%A%Xing2%B&pause&exit :Han set/a Gu1+=1,Gu2=0 for %%a in (%Han2%) do ( set/a Gu2+=1 if "%%a"=="%1" if defined #!Gu1! if defined @!Gu2! set/a Xing2+=1&set #!Gu1!=&set @!Gu2!= ) shift if not "%1"=="" goto:Han [ Last edited by Hanyeguxing on 2010-12-2 at 10:27 ]

第19楼　netbenton	发表于 2010-12-02 04:36
银牌会员　发帖 752　积分 1,916　来自广西
Hanyeguxing 的2,3,4种方法，对下例组合，测试结果不对: 1 1 2 2 1 1 1 2 1 2 1 1 1 2

第20楼　Hanyeguxing	发表于 2010-12-02 09:18
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
Originally posted by netbenton at 2010-12-2 04:36: Hanyeguxing 的2,3,4种方法，对下例组合，测试结果不对: 1 1 2 2 1 1 1 2 1 2 1 1 1 2 实际测试方法1和2没问题，3和4错误究其原因是方法3和4在设计思路上就是错误的，因为是否优先获得A的全部值，结果很可能不同。汗一个先，已经修改了。。。 [ Last edited by Hanyeguxing on 2010-12-2 at 10:16 ]