中国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

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 =!

@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

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