[其他] 求1个直接判断2张牌是对子的程序

ppp123ggg

::以下是判断是否为两对，三条，四条，葫芦
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
for /l %%i in (1,1,5) do (
        if !right%%i! equ 13 set right%%i=A
        if !right%%i! equ 12 set right%%i=K
        if !right%%i! equ 11 set right%%i=Q
        if !right%%i! equ 10 set right%%i=J
        if !right%%i! equ 9 set right%%i=T
        if !right%%i! equ 8 set right%%i=9
        if !right%%i! equ 7 set right%%i=8
        if !right%%i! equ 6 set right%%i=7
        if !right%%i! equ 5 set right%%i=6
        if !right%%i! equ 4 set right%%i=5
        if !right%%i! equ 3 set right%%i=4
        if !right%%i! equ 2 set right%%i=3
        if !right%%i! equ 1 set right%%i=2
        set str=!str!!right%%i!
)
::把所发的5张牌的右半部分转换了以后放到str中。（这样做方便以后的判断）


for /l %%i in (1,1,4) do (
        set/a w=%%i+1
        for /l %%j in (!w!,1,5) do (
                if  !right%%i! equ !right%%j! (
                        set e1=!right%%i!
                        set e2=!right%%j!
                        goto 4
                        ::如果5张牌中有两张数字（即右半部分）相等则跳到4。
                )
        )
)
goto 5

:4
set str=!str:%e1%=0!
::把str中值等于%e1%的都设为0（这是由于str中本来是没有0的）。

set h1=!str:~0,1!
set h2=!str:~1,1!
set h3=!str:~2,1!
set h4=!str:~3,1!
set h5=!str:~4,1!
::以上取出了str中的每个元素。

set box=0
for /l %%i in (1,1,5) do (
        if !h%%i! equ 0 set/a box+=1
)

if !box! equ 4 set samefour=1&goto 5
::box的值等于4就代表，str中有4个数字是相等的，也就是说所发的5张牌中有4张在牌面的数字上是相等的。
::也就是四条。

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::当box的值为3时，还有可能是葫芦。以下这一段判断是否是葫芦。
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
if !box! equ 3 (
        set str=!str:0=!
        ::把str中的0清除，此时str中就剩下两个元素了。

        set m=!str:~0,1!
        ::把str的第一个值赋值给m。
)
::此时m就有值了，否则m的值不正确！
if !box! equ 3 (
        set str=!str:%m%=0!
        if !str! equ 00 set hulu=1&goto 5
        ::如果str中剩下的两个元素相等，就是葫芦了。

        set samethree=1&goto 5
        ::如果str中剩下的两个元素不相等，就是三条了。
)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::上面的都不符合的话，最多有可能的就只能是葫芦和两对了，下面是否是葫芦或两对。
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set str=!str:0=!
::清除str中的0。此时，str中就只剩下三个元素了。

set g1=!str:~0,1!
set g2=!str:~1,1!
set g3=!str:~2,1!
::取出这三个元素。

if !g1! equ !g2! if !g2! equ !g3! set hulu=1&goto 5
::如果剩下的元素相等，那么就是葫芦了。跳到5。

for /l %%i in (1,1,2) do (
        set/a w=%%i+1
        for /l %%j in (!w!,1,3) do (
                if !g%%i! equ !g%%j! (
                        set twocouples=1&goto 5
                )
        )
)
::如果剩下的三个元素不都相等但其中有两个相等，那么就是两对了。
复制代码

这个是英雄书里的原程序    有哪个高手能帮我 写个直接判断对子 的程序 ？？？谢谢

ppp123ggg

不用大家来帮忙像了   我 已经 做出来了

Batcher

贴出来给大家分享一下？

ppp123ggg

好的   但是这个方法觉得比较苯。。。。。。。。。。。
如果有更好的方法  也希望大家能帖出来下
for /l %%i in (1,1,2) do (
  set/a w=%%i+1
  for /l %%j in (!w!,1,3) do (
  if !right%%i! lss !right%%j! (
    set/a tt=!right%%i!
    set/a right%%i=!right%%j!
    set/a right%%j=!tt!
    )
  )
)
::keep line
set/a n1=%right1%
set/a n2=%right2%
set/a n3=%right3%
if !n1! equ !n2! goto k

for /l %%i in (1,1,2) do (
  set/a w=%%i+1
  for /l %%j in (!w!,1,3) do (
  if !right%%i! lss !right%%j! (
    set/a tt=!right%%i!
    set/a right%%i=!right%%j!
    set/a right%%j=!tt!
    )
  )
)
::keep line
set/a n1=%right1%
set/a n2=%right2%
set/a n3=%right3%
if !n2! equ !n3! goto l

goto 5

:k
for /l %%i in (1,1,2) do (
  set/a w=%%i+1
  for /l %%j in (!w!,1,3) do (
  if !right%%i! lss !right%%j! (
    set/a tt=!right%%i!
    set/a right%%i=!right%%j!
    set/a right%%j=!tt!
    )
  )
)
::keep line
set/a n1=%right1%
set/a n2=%right2%
set/a n3=%right3%
if !n3! lss !n2! set sametwo=1
goto 5


:l
for /l %%i in (1,1,2) do (
  set/a w=%%i+1
  for /l %%j in (!w!,1,3) do (
  if !right%%i! lss !right%%j! (
    set/a tt=!right%%i!
    set/a right%%i=!right%%j!
    set/a right%%j=!tt!
    )
  )
)
::keep line
set/a n1=%right1%
set/a n2=%right2%
set/a n3=%right3%
if !n2! lss !n1! set sametwo=1
::set the sametwo card