中国DOS联盟

经过各位找出缺点，我自己列出了多种特殊情况，基本搞定
已经允许小数，分数了。 例如 8/(3-8/3)=24 这个口算出现分数的。
（3-8/3=1/3 ->8/(1/3)=8*3/1=24）
接下来能找到一个例子加减乘除算24 而此批处理又算不到的同学
我给+15分

@echo off &setlocal enabledelayedexpansion title made by 523066680@www.cn-dos.net - 算24.bat :::::::::::::::::::::::::::::::::::: ::批处理算24.bat ::作者:523066680 ::blog http://hi.baidu.com/523066680 ::首发于:http://www.cn-dos.net/forum/viewthread.php?tid=45488&fpage=1 :::::::::::::::::::::::::::::::::::: :input for /f "tokens=1 delims==" %%a in ('set') do (set "%%a=") set "pexit=&pause &cls &goto :input" set /a i=10,j=11,q=12,k=13 set _+=- set _-=+ set _*=/ set _/=* echo, &echo, 算24.bat echo, &echo, 输入4个扑克牌的数字， echo, &echo, 其中1-9代表1-9 , i代表10 , j代表11 , q代表12 , k代表13 echo, &echo,请正确输入。 示例: q q 1 2 (或者qq12) echo, &set /p "str=可以用空格隔开，也可以不用 : " echo, if "%str%"=="" (cls &goto :input) if "%str%"=="exit" (exit) call :fo "%str: =%" "" if "%have%"=="" (echo, &echo,没有答案) echo, pause cls &goto :input :://////递进结合递归//////列举数字的排列组合////// :fo if %1=="" ( if not "!defx%~2!"=="def" (call :next %~2 &set defx%~2=def) goto :eof ) if not defined _%~1 (set _%~1=-1) set str=%~1 :foa set /a _%~1+=1,foa=_%~1,fob=foa+1 call :fo "!str:~0,%foa%!!str:~%fob%!" "%~2!str:~%foa%,1!" set str=%~1 set /a foa=_%~1 if not "!str:~%foa%,-1!"=="" (goto :foa) set "_%~1=" goto :eof :://////组合运算符的所有排列形式//////对接收到的4个数字进行计算 :next set num=%~1 set /a na=%num:~0,1%,nb=%num:~1,1%,nc=%num:~2,1%,nd=%num:~3,1% set /a yn=nb*100/nc*nc,yn2=24*nb/nc*nc-24*nb set "do=::" if %yn% equ %nb%00 (set "do=") %do% set /a spea=(na*10-nb*10/nc)*nd,speb=(na*10+nb*10/nc)*nd %do% if %spea% equ 240 echo, * %nd% = 24 &set have=have %pexit% %do% if %speb% equ 240 echo, * %nd% = 24 &set have=have %pexit% set /a spec=(na-(nb*nc))*nd if %spec% equ 24 echo, * %nd% = 24 &set have=have %pexit% if %yn2% equ 0 (set "do=") else (set "do=::") %do% set /a spef=24*nb/nc-24*nd,speg=-spef %do% if %spef% equ %na% echo, %na% / = 24 &set have=have %pexit% %do% if %speg% equ %na% echo, %na% / = 24 &set have=have %pexit% set "fu=+ - x /" for %%a in (%fu%) do ( for %%b in (%fu%) do ( for %%c in (%fu%) do ( set "fa=%%a" &set "fb=%%b" &set "fc=%%c" call :next-1 !fa:x=*! !fb:x=*! !fc:x=*! ) ) ) goto :eof :next-1 set /a count=((na %1 nb) %2 nc) %3 nd set "do=::" if %count% equ 24 (set "do=") ::////通过逆运算检验答案,例如,批处理中 3/2 = 1 而 1*2 不等于 3。 %do% set /a test=((count !_%3! nd) !_%2! nc) !_%1! nb %do% if %test% neq %na% (goto :next-2) if %count% equ 24 (echo, { %2 %nc% } %3 %nd% = 24 &set have=have %pexit%) :next-2 set /a ca=na %1 nb,cb=nc %3 nd,pca=ca !_%1! nb,pcb=cb !_%3! nd if %cb% equ 0 (goto :eof) if %pca% neq %na% (goto :eof) if %pcb% neq %nc% (goto :eof) set /a count2=ca %2 cb,pcount2=count2 !_%2! cb if %pcount2% neq %ca% (goto :eof) if %count2% equ 24 (echo, %2 = 24 &set have=have %pexit%)

[ Last edited by 523066680 on 2009-1-10 at 10:49 ]

@echo off &setlocal enabledelayedexpansion title made by 523066680@www.cn-dos.net - 算24.bat 尽量列举版 :::::::::::::::::::::::::::::::::::: ::批处理算24.bat 尽量列举版 ::作者:523066680 ::blog http://hi.baidu.com/523066680 ::首发于:http://www.cn-dos.net/forum/viewthread.php?tid=45488&fpage=1 :::::::::::::::::::::::::::::::::::: :input for /f "tokens=1 delims==" %%a in ('set') do (set "%%a=") set "pexit=&echo," set /a i=10,j=11,q=12,k=13 set _+=- set _-=+ set _*=/ set _/=* echo, &echo, 很多时候答案有重复，因为是对数字和运算符排列... echo, &echo, 输入4个扑克牌的数字， echo, &echo, 其中1-9代表1-9 , i代表10 , j代表11 , q代表12 , k代表13 echo, &echo,请正确输入。 示例: q q 1 2 (或者qq12) echo, &set /p "str=可以用空格隔开，也可以不用 : " echo, if "%str%"=="" (cls &goto :input) if "%str%"=="exit" (exit) call :fo "%str: =%" "" if "%have%"=="" (echo, &echo,没有答案) echo, pause cls &goto :input :://////递进结合递归//////列举数字的排列组合////// :fo if %1=="" ( if not "!defx%~2!"=="def" (call :next %~2 &set defx%~2=def) goto :eof ) if not defined _%~1 (set _%~1=-1) set str=%~1 :foa set /a _%~1+=1,foa=_%~1,fob=foa+1 call :fo "!str:~0,%foa%!!str:~%fob%!" "%~2!str:~%foa%,1!" set str=%~1 set /a foa=_%~1 if not "!str:~%foa%,-1!"=="" (goto :foa) set "_%~1=" goto :eof :://////组合运算符的所有排列形式//////对接收到的4个数字进行计算 :next set num=%~1 set /a na=%num:~0,1%,nb=%num:~1,1%,nc=%num:~2,1%,nd=%num:~3,1% set /a yn=nb*100/nc*nc,yn2=24*nb/nc*nc-24*nb set "do=::" if %yn% equ %nb%00 (set "do=") %do% set /a spea=(na*10-nb*10/nc)*nd,speb=(na*10+nb*10/nc)*nd %do% if %spea% equ 240 echo, * %nd% = 24 &set have=have %pexit% %do% if %speb% equ 240 echo, * %nd% = 24 &set have=have %pexit% set /a spec=(na-(nb*nc))*nd if %spec% equ 24 echo, * %nd% = 24 &set have=have %pexit% if %yn2% equ 0 (set "do=") else (set "do=::") %do% set /a spef=24*nb/nc-24*nd,speg=-spef %do% if %spef% equ %na% echo, %na% / = 24 &set have=have %pexit% %do% if %speg% equ %na% echo, %na% / = 24 &set have=have %pexit% set "fu=+ - x /" for %%a in (%fu%) do ( for %%b in (%fu%) do ( for %%c in (%fu%) do ( set "fa=%%a" &set "fb=%%b" &set "fc=%%c" call :next-1 !fa:x=*! !fb:x=*! !fc:x=*! ) ) ) goto :eof :next-1 set /a count=((na %1 nb) %2 nc) %3 nd set "do=::" if %count% equ 24 (set "do=") ::////通过逆运算检验答案,例如,批处理中 3/2 = 1 而 1*2 不等于 3。 %do% set /a test=((count !_%3! nd) !_%2! nc) !_%1! nb %do% if %test% neq %na% (goto :next-2) if %count% equ 24 (echo, { %2 %nc% } %3 %nd% = 24 &set have=have %pexit%) :next-2 set /a ca=na %1 nb,cb=nc %3 nd,pca=ca !_%1! nb,pcb=cb !_%3! nd if %cb% equ 0 (goto :eof) if %pca% neq %na% (goto :eof) if %pcb% neq %nc% (goto :eof) set /a count2=ca %2 cb,pcount2=count2 !_%2! cb if %pcount2% neq %ca% (goto :eof) if %count2% equ 24 (echo, %2 = 24 &set have=have %pexit%)

[ Last edited by 523066680 on 2009-1-10 at 10:52 ]

可是很多没有答案啊，如1 5 5 5，1 4 5 6

如果确认 1555 可以算出24 ,请给出计算公式
我会给加10分,然后想办法解决问题.

[ Last edited by 523066680 on 2009-1-1 at 10:59 ]

5*5-1^5=24
接分^_^

被挑骨头拉!!! 没话说, 加个限制, 之后的贴子只讨论加减乘除

要是加上其他运算符,可要累死人了.

(5-(1/5))*5

terse大侠还来个浮点的。。。

谢谢学习了

那就调用vbs吧^_^

8楼的nb,真没想到你这么想,楼主,浮点运算啊,看你怎么办??
改一下,把存储方式改以下

vbs 要如何写？

比我写的那个强多了。{通过逆运算检验答案}这个好。

各位，小数很分数的情况已经考虑
例如
特别例子 qq81 (12 12 8 1)
8 8 3 3
6 5 4 1
6 4 3 1
5 5 5 1
6 6 5 5
6 4 k 3
...

都可以算了

接下来能找到一个例子加减乘除算24 而此批处理又算不到的
我给+15分