[已解决]求助批处理6659四个数值计算24点

GNGW

6、6、5、9 四个数字，每个数字出现了几次，在运算过程中，就只能使用这几个数字几次，且不能使用其他数字，加减乘除随意组合，运算优先级随意搭配，总之在运算过程中，只能用2次6 ，1次5，1次9，并且不能使用其他数，计算最终结果是24（请用batch批处理脚本代码实现）

semiuel

很久以前网上下载的批处理算24点的脚本，忘记出处了。

1. 
   
2. @echo off
   
3. setlocal enableextensions enabledelayedexpansion
   
4. title 批处理算24点
   
5. echo 批处理算24点&echo.
   
6. :loop
   
7. set /p "n=输入四个数用空格分开: "
   
8. set /a "lzn=0"
   
9. for %%i in (!n!) do set /a "lzn+=1"&set /a "lz!lzn!z=%%i,lz!lzn!m=1,lz!lzn!s=%%i"
   
10. call:liuzhaonan11 lz
    
11. if not errorlevel 1 echo 结果: 没有答案
    
12. goto loop
    
13. 原理说明:使用有理数进行计算,选择算式中最先结合的两数和它们之间的运算,并递归.
    
14. :liuzhaonan11
    
15. setlocal
    
16. set "f1=+"&set "f2=-"&set "f3=*"&set "f4=/"
    
17. for /l %%i in (1,1,!%1n!) do for /l %%j in (1,1,!%1n!) do if %%i neq %%j (
    
18. for /l %%k in (1,1,4) do (
    
19. setlocal
    
20. if %%k leq 2 set /a "z=%1%%jz*%1%%im!f%%k!%1%%jm*%1%%iz,m=%1%%jm*%1%%im"
    
21. if %%k equ 3 set /a "z=%1%%jz*%1%%iz,m=%1%%jm*%1%%im"
    
22. if %%k equ 4 set /a "z=%1%%jz*%1%%im,m=%1%%jm*%1%%iz"
    
23. if !%1n! equ 2 (
    
24. set /a "t=!z!-24*!m!"
    
25. if !t! equ 0 if !m! neq 0 echo 结果: !%1%%js! !f%%k! !%1%%is! = 24&exit /b 1
    
26. ) else (
    
27. set "s=(!%1%%js! !f%%k! !%1%%is!)"&set /a "n=0"
    
28. for /l %%l in (1,1,!%1n!) do if %%l neq %%i if %%l neq %%j (
    
29. set /a "n+=1"&set "%1!n!z=!%1%%lz!"&set "%1!n!m=!%1%%lm!"&set "%1!n!s=!%1%%ls!"
    
30. )
    
31. set /a "n+=1"&set "%1!n!z=!z!"&set "%1!n!m=!m!"&set "%1!n!s=!s!"
    
32. set "%1n=!n!"&call%0 %1
    
33. if errorlevel 1 exit /b 1
    
34. )
    
35. endlocal
    
36. )
    
37. )
    
38. exit /b 0
    

复制代码

semiuel

有可能脚本出自本论坛，反正我是看不懂。

Batcher

回复 3# semiuel


http://bbs.bathome.net/thread-4711-1-1.html

GNGW

回复 4# Batcher


    感谢回复，已经找到此帖代码，您帮忙看下这贴 http://www.bathome.net/thread-68649-1-1.html