屏幕上输入1〜10范围内的4个整数（可以有重复），对它们进行加、减、乘、除四则运算后（可以任意的加括号限定计算的优先级），寻找计算结果等于24的表达式。\n\n例如输入4个整数4、5、6、7，可得到表达式：4*((5-6)+7)=24。这只是一个解，要求输出全部的解。要求表达式中数字的顺序不能改变。\n\n思路：\n拼凑加减乘除，使4个数的运算结果等于24。\n\n由于四则运算中，乘除的优先级高于加减，所以必须"加括号"来限定4个数之间运算优先级。\n\n例如：A+B*C-D 这个式子，通过增加括号，可以产生多种结果，比如 (A+B)*(C-D) 和 A+(B*C-D)。\n\n那么总共有几种加括号的方法呢，该如何分类呢？\n\n要想将4个数字的运算优先级细分，必须使用两对括号。\n\n可以这么理解：我们的目的是将4个数的运算转换成两个"数"的运算（这里的"数"包括括号表达式），而每两个数运算，就能得出一个结果，即每对括号可以减少一个要计算的数字（如(A+B)*(C+D)中，A和B运算，使式子变成了3个数，C接着和D运算，使式子剩下两个数字）。4-2=2即为需要的括号数。\n\n下面列举所有可能的括号表达式：（#表示四则运算符）\n\n((A#B)#C)#D\n(A#(B#C))#D\nA#((B#C)#D)\nA#(B#(C#D))\n(A#B)#(C#D)\n具体思路：\n\n上面5种括号表达式都可以单独写成函数，函数内部按照括号的优先级+从左往右的顺序进行运算，最后返回计算结果。\n\n每个表达式中有3个'#'号，它们是四则运算符（+、-、*、/），可以定义一个全局字符数组，存放4这四个字符。\n\nchar my_oprator[4] = {'+', '-', '*', '/'};\n
--24点游戏制作
--星空露珠工作室出品
local flag=false
local operator={'+','-','*','/'}
local nr,nr0,nrnew={},{},{}
local tb1,tb0,t0,t1,t2={},{},{},{},{}
local str,str0="",""
--运算两个数返回运算值
local function ce(nr1,nr2,operator0)
--print(nr1,nr2,operator0)
if operator0=='+' then return nr1+nr2
elseif operator0=='-' then return nr1-nr2
elseif operator0=='*' then return nr1*nr2
elseif operator0=='/' and nr2~=0 then return nr1/nr2
else return -1
end
end
--获取重复数组个数
local function c(t)
local t0={}
local t1={}
local t2={}
for _,v in ipairs(t)
if t0[v]==nil then t1[#t1+1]=v t0[v]=1 else t0[v]=t0[v]+1 end
end
if #t1==1 then t2={t1[1],t1[1],t1[1],t1[1]}
elseif #t1==3 then
if t0[t1[1]]==2 then t2={t1[2],t1[3],t1[1],t1[1]}
elseif t0[t1[2]]==2 then t2={t1[1],t1[3],t1[2],t1[2]}
elseif t0[t1[3]]==2 then t2={t1[1],t1[2],t1[3],t1[3]}
end
elseif #t1==2 then
if t0[t1[1]]==2 then t2={t1[1],t1[1],t1[2],t1[2]}
elseif t0[t1[1]]==1 then t2={t1[1],t1[2],t1[2],t1[2]}
elseif t0[t1[1]]==3 then t2={t1[2],t1[1],t1[1],t1[1]}
end
elseif #t1==4 then t2={t1[1],t1[2],t1[3],t1[4]}
end
return t1,t0,t2
end
--进行运算组合
local function c2(num1,num2,num3,num4)
for i=1,4 do
operator1=operator[i]
firstResult =ce(num1,num2,operator1)
midResult =ce(num2,num3,operator1)
tailResult =ce(num3,num4,operator1)
for j=1,4 do
operator2=operator[j]
firstMidResult = ce(firstResult,num3,operator2)
firstTailResult= ce(num3,num4,operator2)
midFirstResult = ce(num1,midResult,operator2)
midTailResult = ce(midResult,num4,operator2)
tailMidResult = ce(num2,tailResult,operator2)
for k=1,4 do
operator3=operator[k]
if ce(firstMidResult,num4,operator3)==24 then
str0=str0.."(("..num1..operator1..num2..")"..operator2..num3..")"..operator3..num4..','
flag = true return
end
if ce(firstResult,firstTailResult,operator3) == 24
str0=str0.."("..num1..operator1..num2..")"..operator3.."("..num3..operator2..num4..")"..','
flag = true return
end
if ce(midFirstResult,num4,operator3) == 24
str0=str0.."("..num1..operator2.."("..num2..operator1..num3.."))"..operator3..num4..','
flag = true return
end
if ce(num1,midTailResult,operator3) == 24
str0=str0..num1..operator3.."(("..num2..operator1..num3..")"..operator2..num4..")"..','
flag = true return
end
if ce(num1,tailMidResult,operator3) == 24
str0=str0..num1..operator3.."("..num2..operator2.."("..num3..operator1..num4.."))"..','
flag = true return
end
end
end
end
end
--各种排序组合
local function c1(nrnew)
local tb1,tb0={},{}
local nr={}
local tb1,tb0,nr=c(nrnew)
--print(unpack(tb1))
print(unpack(nrnew))
str0="key="
if #tb1==1 then c2(nr[1],nr[2],nr[3],nr[4])
elseif #tb1==3 then c2(nr[1],nr[2],nr[4],nr[4])
c2(nr[1],nr[4],nr[2],nr[4])
c2(nr[1],nr[4],nr[4],nr[2])
c2(nr[2],nr[1],nr[4],nr[4])
c2(nr[2],nr[4],nr[1],nr[4])
c2(nr[2],nr[4],nr[4],nr[1])
c2(nr[4],nr[4],nr[2],nr[1])
c2(nr[4],nr[2],nr[4],nr[1])
c2(nr[4],nr[4],nr[1],nr[2])
c2(nr[4],nr[1],nr[4],nr[2])
c2(nr[4],nr[1],nr[2],nr[4])
c2(nr[4],nr[2],nr[1],nr[4])
elseif #tb1==2 then
if math.abs(tb0[tb1[1]]-tb0[tb1[2]])==0 then
c2(nr[2],nr[2],nr[4],nr[4])
c2(nr[2],nr[4],nr[2],nr[4])
c2(nr[2],nr[4],nr[4],nr[2])
c2(nr[4],nr[2],nr[2],nr[4])
c2(nr[4],nr[2],nr[4],nr[2])
c2(nr[4],nr[4],nr[2],nr[2])
elseif math.abs(tb0[tb1[1]]-tb0[tb1[2]])==2 then
c2(nr[1],nr[4],nr[4],nr[4])
c2(nr[4],nr[1],nr[4],nr[4])
c2(nr[4],nr[4],nr[1],nr[4])
c2(nr[4],nr[4],nr[4],nr[1])
end
elseif #tb1==4 then
for i=1,4 do
for j=1,4 do
if i~=j then
for m=1,4 do
if m~=i and m~=j then
for n=1,4 do
if n~=i and n~=j and n~=m then
c2(nr[i],nr[j],nr[m],nr[n])
end
end
end
end
end
end
end
end
end
local game={}
--全部题目生成 也可不需要生成，生成时判断可否有解
local function main0()
local nr={}
for i=1,13 do
for j=i,13 do
for m=j,13 do
for n=m,13 do
flag = false
local nr={i,j,m,n}
c1(nr)
if flag==true then
table.insert(game,'{'..i..','..j..','..m..','..n..str0..',},')
--str=str..'{'..i..','..j..','..m..','..n..str0..'},'
end
end
end
end
end
end
--main0() --生成全部
c1({3,6,7,10}) --输入求解
print(str0)