cjilyy 发表于 2011-10-14 09:45

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]
查看完整版本: Mathematica 24点程序!