JavaScript版的24点计算器

思想不错，程序写法还稚嫩。为了表扬以及给大家做个表率，开发小程序，小作品是可以加精的。

LZ你博客空间拿买的啊？~

。。启蒙教育真好，都碉堡

围观

function expSwap(e) {
var v,s,l;
v = this.val;
s = this.str;
l = this.level;
this.val = e.val;
this.str = e.str;
this.level = e.level;
e.val = v;
e.str = s;
e.level = l;
}
function expNew(val, str, level) {
var obj = new Object;
obj.val = val;
obj.str = str;
obj.level = level;
obj.swap = expSwap;
return obj
}
function genExp(val, e1, e2, symbol, level, rule) {
if (e1.level < level)
str1 = "(" + e1.str + ")";
else
str1 = e1.str;
if (e2.level < level || e2.level <= level && rule == 0)
str2 = "(" + e2.str + ")";
else
str2 = e2.str;
return expNew(val, str1+symbol+str2, level);
}
function calc(num, len, r) {
var i, j, t;
if (len == 1)
if (Math.abs(num[0].val - r) > 1e-8)
return false;
else {
this.answer = num[0].str + "";
return true;
}
for (i = len - 1; i >= 0; --i) {
num[len - 1].swap(num[i]);
for (j = len - 2; j >= 0; --j) {
num[len - 2].swap(num[j]);
t = num[len - 2];
num[len - 2] = genExp(t.val + num[len - 1].val,
t, num[len - 1], "+", 4, 1); if (calc(num, len - 1, r)) return true; num[len - 2] = genExp(t.val - num[len - 1].val, t, num[len - 1], "-", 4, 0); if (calc(num, len - 1, r)) return true; num[len - 2] = genExp(t.val * num[len - 1].val, t, num[len - 1], "*", 5, 1); if (calc(num, len - 1, r)) return true; if (Math.abs(num[len - 1].val) > 1e-8) { num[len - 2] = genExp(t.val / num[len - 1].val, t, num[len - 1], "/", 5, 0); if (calc(num, len - 1, r)) return true; } num[len - 2] = t; num[len - 2].swap(num[j]); } num[len - 1].swap(num[i]); } return false;}
function calc24() { var e, str, i; e = new Array(4); for (i = 0; i < 4; ++i) { str = document.getElementById("num"+(i+1)).value; e[i] = expNew(parseFloat(str), str, 100); } var ansval = parseFloat(document.getElementById("numcalc").value); if (calc(e, 4, ansval)) { document.getElementById("ans").innerHTML = this.answer + "=" + ansval; } else { document.getElementById("ans").innerHTML = "No answer"; }}
document.getElementById("ans").innerHTML = "Loading finish"



我昨天用python写了一个，方法比较笨。
#!/usr/bin/python
arr=[]
nums=raw_input("please input 4 integer:")
num=nums.split(' ')
for i in num:
arr.append(float(i))
def perm(items, n=None):
if n is None:
n = len(items)
for i in range(len(items)):
v = items[i:i+1]
if n == 1:
yield v
else:
rest = items[:i] + items[i+1:]
for p in perm(rest, n-1):
yield v + p
def F(a,b):
arr={}
for i in a:
for j in b:
va=a[i]
vb=b[j]
arr.update({"("+i+"+"+j+")":va+vb})
arr.update({"("+i+"-"+j+")":va-vb})
arr.update({"("+j+"-"+i+")":vb-va})
arr.update({"("+i+"*"+j+")":va*vb})
vb>0 and arr.update({"("+i+"/"+j+")":va/vb})
va>0 and arr.update({"("+j+"/"+i+")":vb/va})
return arr
for i in perm(arr):
dic=[{"a":i[0]},{"b":i[1]},{"c":i[2]},{"d":i[3]}]
alist=F(F(F(dic[0],dic[1]),dic[2]),dic[3])
for i in alist:
if alist[i]==24.0:
print i.replace('a',str(dic[0]['a'])).replace('b',str(dic[1]['b'])).replace('c',str(dic[2]['c'])).replace('d',str(dic[3]['d']))

居然格式没了重发
#!/usr/bin/python
arr=[]
nums=raw_input("please input 4 integer:")
num=nums.split(' ')
for i in num:
. arr.append(float(i))
def perm(items, n=None):
. if n is None:
. n = len(items)
. for i in range(len(items)):
. v = items[i:i+1]
. if n == 1:
. yield v
. else:
. rest = items[:i] + items[i+1:]
. for p in perm(rest, n-1):
. yield v + p
def F(a,b):
. arr={}
. for i in a:
. for j in b:
. va=a[i]
. vb=b[j]
. arr.update({"("+i+"+"+j+")":va+vb})
. arr.update({"("+i+"-"+j+")":va-vb})
. arr.update({"("+j+"-"+i+")":vb-va})
. arr.update({"("+i+"*"+j+")":va*vb})
. vb>0 and arr.update({"("+i+"/"+j+")":va/vb})
. va>0 and arr.update({"("+j+"/"+i+")":vb/va})
. return arr
for i in perm(arr):
. dic=[{"a":i[0]},{"b":i[1]},{"c":i[2]},{"d":i[3]}]
. alist=F(F(F(dic[0],dic[1]),dic[2]),dic[3])
. for i in alist:
. if alist[i]==24.0:
. print i.replace('a',str(dic[0]['a'])).replace('b',str(dic[1]['b'])).replace('c',str(dic[2]['c'])).replace('d',str(dic[3]['d']))

On Error Resume Next
Const MISS = 0.001
Dim operator(3)
operator(0) = "+":operator(1) = "-":operator(2) = "*":operator(3) = "/"
Dim num,a,b,c,answer,tmp,str
num = InputBox("请输入四个数，用单个空格隔开,如:1 2 3 4", "24点牌戏通解脚本")
num = Trim(num):num = Split(num," ",-1,1)
For i=0 To 63
a = Int(i / 16) Mod 4 : b = Int(i / 4) Mod 4 : c = i Mod 4
str = "(("&num(0)&operator(a)&num(1)&")"&operator(b)&num(2)&")"&operator(c)&num(3)
If abs(eval(str) - 24.0) < MISS Then
answer = answer & str & "= 24" & vbcrlf
End If
str = "("&num(0)&operator(a)&num(1)&")"&operator(b)&"("&num(2)&operator(c)&num(3)&")"
If abs(eval(str) - 24.0) < MISS Then
answer = answer & str & "= 24" & vbcrlf
End If
str = "("&num(0)&operator(a)&"("&num(1)&operator(b)&num(2)&"))"&operator(c)&num(3)
If abs(eval(str) - 24.0) < MISS Then
answer = answer & str & "= 24" & vbcrlf
End If
str = num(0)&operator(a)&"(("&num(1)&operator(b)&num(2)&")"&operator(c)&num(3)&")"
If abs(eval(str) - 24.0) < MISS Then
answer = answer & str & "= 24" & vbcrlf
End If
str = num(0)&operator(a)&"("&num(1)&operator(b)&"("&num(2)&operator(c)&num(3)&"))"
If abs(eval(str) - 24.0) < MISS Then
answer = answer & str & "= 24" & vbcrlf
End If
Next
If answer <> nul Then
MsgBox answera
Else MsgBox "该组合无解，请检查输入格式是否正确，未使用四个数的全排列，把四个数换个顺序再试试？"
End If
上面代码保存为vbs 直接在Windows上运行
木有四个数全排列……
我错了……这也不短了，而且看起来特**