Mathematica 24点程序！

cjilyy

f[x1_, s1_, x2_, s2_, x3_, s3_, x4_] :=
Module[{result, i},
' ?. ~$ |. F4 L% X  r  result = {HoldForm[(x1~s1~x2)~s2~(x3~s3~x4)],
    HoldForm[x1~s1~(x2~s2~x3~s3~x4)],
) z: U5 f) b8 \0 c8 U: v: u5 C2 R5 K2 M1 t    HoldForm[x1~s1~x2~s2~(x3~s3~x4)],
+ k" c0 Y- g8 b4 v" b- @( G    HoldForm[(x1~s1~x2~s2~x3)~s3~x4],
  W% T# {+ t' b4 u( Y- c8 m    HoldForm[x1~s1~(x2~s2~x3)~s3~x4],
% y6 S- O1 {8 O    HoldForm[(x1~s1~(x2~s2~x3))~s3~x4],
$ g8 ?- P# m$ U+ n6 S) D5 _6 e    HoldForm[x1~s1~(x2~s2~(x3~s3~x4))]};
  result = Union[result];
  For[i = 1, i <= Length[result], i++,
0 F# F5 \. \. r* u   If[ReleaseHold[result[[i]]] == 24, Print[result[[i]], "=24"];
     (*Print[TreeForm[result[[i]],DirectedEdges->True]]*);];];]

( t0 ]" L, Y$ D7 {8 x3 ], e' Wfs[x1_, x2_, x3_, x4_] :=
Module[{result, s, sym, num, i, j}, Off[Divide::infy];
  Off[Part::partw];
( N. V1 S# \% P  H& j- i  Off[Divide::indet];
  s = {Plus, Subtract, Times, Divide};
8 b/ V9 p$ u( ?# X  sym = Flatten[
! `6 _/ b4 Y) ?" B; i  X) [    Table[{s[[i]], s[[j]], s[[k]]}, {i, 4}, {j, 4}, {k, 4}], 2];
  sym = Union[sym];
  num = Permutations[{x1, x2, x3, x4}];
  Do[f[num[[i, 1]], sym[[j, 1]], num[[i, 2]], sym[[j, 2]],
    num[[i, 3]], sym[[j, 3]], num[[i, 4]]], {i, Length[num]}, {j,
( T. ]2 X6 a) }7 r    Length[sym]}]]

fs[3, 3, 8, 8]