[数值计算] [分享]24点计算批处理脚本

sl543001

原创区貌似俺发不了帖子,反正还有BUG,就先发到这里讨论一下.
24点计算脚本,用户给出数字,脚本给出式子:
由于cmd只支持整数运算,在计算例如2 3 4 5数字组合时,有时会有BUG
由于相同原因,脚本解不出类似 5 5 5 1的组合
经过了一定的优化,速度和代码量有所改善,但还有待提高.

@echo off&&color f2&&title SYBN 24点自动计算脚本 V0.2&&setlocal enabledelayedexpansion
set ff1=^*
set ff2=^+
set ff3=^-
set ff4=^/
set S1=1
set S2=2
set S3=3
set S4=4
: begain
set b1=0
set b2=1
set b3=1
set SS=1
set XS=1
set cf=1
set cs=0
set c1=0
set c2=0
set c3=0
set c4=0
set c5=0
set c6=0
echo ============= .: SYBN 24点自动计算脚本 V0.2 :. ==============
echo 请依次输入要用于计算的4个数字,并以空格隔开.例如输入:"1 2 3 4".
set /p p=[默认: %S1% %S2% %S3% %S4%]:
for /f "tokens=1,2,3,4,*" %%a in ("%p%") do if not "%%b" == "" set /a S1=%%a&& set /a S2=%%b&& set /a S3=%%c&& set /a S4=%%d&&if not "%%e" == "" set /a SS=%%e
if %S1% lss 1 goto wx
if %S2% lss 1 goto wx
if %S3% lss 1 goto wx
if %S4% lss 1 goto wx
if %S1% gtr 13 goto wx
if %S2% gtr 13 goto wx
if %S3% gtr 13 goto wx
if %S4% gtr 13 goto wx
if %SS% == 543001 echo on&&set SS=1
if %S1% == %S2% set /a cf=cf+1
if %S1% == %S3% set /a cf=cf+1&&set /a S5=S2&&set /a S2=S3&&set /a S3=!S5!
if %S2% == %S3% if not %S1% == %S2% set /a cf=cf+1&&set /a S5=S1&&set /a S1=S3&&set /a S3=!S5!
if %S1% == %S4% set /a cf=cf+1&&set /a S5=S4&&set /a S4=S3&&set /a S3=S2&&set /a S2=!S5!
if %S2% == %S4% set /a cf=cf+1&&set /a S5=S4&&set /a S4=S3&&set /a S3=S1&&set /a S1=!S5!
if %S3% == %S4% if %S2% == %S3% set /a cf=4
if %S3% == %S4% if not %S2% == %S3% set /a cf=5
::echo %S1% %S2% %S3% %S4% %SS% %cf%
::pause
: pl
set /a b1=b1+1
if %b1% gtr 4 set /a b1=1&& set /a b2=b2+1 
if %b2% gtr 4 set /a b2=1&& set /a b3=b3+1 
if %b3% gtr 4 echo 无解!&& goto begain
set f1=!ff%b1%!
set f2=!ff%b2%!
set f3=!ff%b3%!
if %b2% == 1 title 正在计算^-
if %b2% == 2 title 正在计算^\
if %b2% == 3 title 正在计算^|
if %b2% == 4 title 正在计算^/
if %cf% == 4 (
call :js %S1% %S1% %S1% %S1% %f1% %f2% %f3%
goto pl
)
if %cf% == 3 (
call :js %S1% %S1% %S1% %S4% %f1% %f2% %f3%
call :js %S1% %S1% %S4% %S1% %f1% %f2% %f3%
call :js %S1% %S4% %S1% %S1% %f1% %f2% %f3%
call :js %S4% %S1% %S1% %S1% %f1% %f2% %f3%
goto pl
)
if %cf% == 5 (
call :js %S1% %S1% %S3% %S3% %f1% %f2% %f3%
call :js %S1% %S3% %S1% %S3% %f1% %f2% %f3%
call :js %S1% %S3% %S3% %S1% %f1% %f2% %f3%
call :js %S3% %S1% %S1% %S3% %f1% %f2% %f3%
call :js %S3% %S1% %S3% %S1% %f1% %f2% %f3%
call :js %S3% %S3% %S1% %S1% %f1% %f2% %f3%
goto pl
)
call :js %S1% %S2% %S3% %S4% %f1% %f2% %f3%
call :js %S1% %S2% %S4% %S3% %f1% %f2% %f3%
call :js %S1% %S3% %S2% %S4% %f1% %f2% %f3%
call :js %S1% %S3% %S4% %S2% %f1% %f2% %f3%
call :js %S1% %S4% %S2% %S3% %f1% %f2% %f3%
call :js %S1% %S4% %S3% %S2% %f1% %f2% %f3%
if not %cf% == 2 call :js %S2% %S1% %S3% %S4% %f1% %f2% %f3%
if not %cf% == 2 call :js %S2% %S1% %S4% %S3% %f1% %f2% %f3%
if not %cf% == 2 call :js %S2% %S3% %S1% %S4% %f1% %f2% %f3%
if not %cf% == 2 call :js %S2% %S3% %S4% %S1% %f1% %f2% %f3%
if not %cf% == 2 call :js %S2% %S4% %S1% %S3% %f1% %f2% %f3%
if not %cf% == 2 call :js %S2% %S4% %S3% %S1% %f1% %f2% %f3%
call :js %S3% %S1% %S2% %S4% %f1% %f2% %f3%
call :js %S3% %S1% %S4% %S2% %f1% %f2% %f3%
if not %cf% == 2 call :js %S3% %S2% %S1% %S4% %f1% %f2% %f3%
if not %cf% == 2 call :js %S3% %S2% %S4% %S1% %f1% %f2% %f3%
call :js %S3% %S4% %S1% %S2% %f1% %f2% %f3%
if not %cf% == 2 call :js %S3% %S4% %S2% %S1% %f1% %f2% %f3%
call :js %S4% %S1% %S2% %S3% %f1% %f2% %f3%
call :js %S4% %S1% %S3% %S2% %f1% %f2% %f3%
if not %cf% == 2 call :js %S4% %S2% %S1% %S3% %f1% %f2% %f3%
if not %cf% == 2 call :js %S4% %S2% %S3% %S1% %f1% %f2% %f3%
call :js %S4% %S3% %S1% %S2% %f1% %f2% %f3%
if not %cf% == 2 call :js %S4% %S3% %S2% %S1% %f1% %f2% %f3%
goto pl
: wx
title 对不起,您输入的数字无效,请重新输入.
goto begain
:js
if %XS% gtr %SS% goto begain
set /a j=100*(%1%5%2%6%3%7%4) 2>nul
set X=%1%5%2%6%3%7%4
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*((%1%5%2)%6%3%7%4) 2>nul
set X=(%1%5%2)%6%3%7%4
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*(%1%5(%2%6%3)%7%4) 2>nul
set X=%1%5(%2%6%3)%7%4
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*(%1%5%2%6(%3%7%4)) 2>nul
set X=%1%5%2%6(%3%7%4)
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*((%1%5%2%6%3)%7%4) 2>nul
set X=(%1%5%2%6%3)%7%4
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*((%1%5%2)%6(%3%7%4)) 2>nul
set X=(%1%5%2)%6(%3%7%4)
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*(%1%5(%2%6%3%7%4)) 2>nul
set X=%1%5(%2%6%3%7%4)
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*(((%1%5%2)%6%3)%7%4) 2>nul
set X=((%1%5%2)%6%3)%7%4
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*((%1%5(%2%6%3))%7%4) 2>nul
set X=(%1%5(%2%6%3))%7%4
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*(%1%5((%2%6%3)%7%4)) 2>nul
set X=%1%5((%2%6%3)%7%4)
if %j% == 2400 call :24 &&goto :EOF
set /a j=100*(%1%5(%2%6(%3%7%4))) 2>nul
set X=%1%5(%2%6(%3%7%4))
if %j% == 2400 call :24 &&goto :EOF
goto :EOF
:24
if %j% == 2400 (
echo 计算完成,结果:"%X%"^=24
set /a XS=XS+1
goto :EOF
)
goto :EOF
复制代码

[ 本帖最后由 sl543001 于 2009-11-18 18:04 编辑 ]

sl543001

恩，有了吗？
郁闷啊！那也没办法了！
下回先搜搜看啊！

sl543001

还真是强人，代码确实精辟得很，恩值得学习研究，研究中。。。