Mathematica 24点程序!
f :=Module[{result, i},
result = {HoldForm[(x1~s1~x2)~s2~(x3~s3~x4)],
HoldForm,
HoldForm,
HoldForm[(x1~s1~x2~s2~x3)~s3~x4],
HoldForm,
HoldForm[(x1~s1~(x2~s2~x3))~s3~x4],
HoldForm};
result = Union;
For, i++,
If]] == 24, Print], "=24"];
(*Print],DirectedEdges->True]]*);];];]
fs :=
Module[{result, s, sym, num, i, j}, Off;
Off;
Off;
s = {Plus, Subtract, Times, Divide};
sym = Flatten[
Table[{s[], s[], s[]}, {i, 4}, {j, 4}, {k, 4}], 2];
sym = Union;
num = Permutations[{x1, x2, x3, x4}];
Do], sym[], num[], sym[],
num[], sym[], num[]], {i, Length}, {j,
Length}]]
fs
页:
[1]