Re[4]: optimale Code in Mathematica

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

... es wird mit

Clear[fS, fA, fR]
fS[L_Integer, {x_Integer, y_Integer},
   R_Integer] := (L < x + y < R && x y < R);
fA[L_Integer, {x_Integer, y_Integer},
   R_Integer] := (IntegerQ[x/y] && L < x - y < R && L < x/y < R);
fR[L_Integer, {x_Integer, y_Integer}, R_Integer] :=
 If[fA[L, {x, y}, R], {{x, y}, x + y, x - y, x y, x/y},
  {{y, x}, y + x, y - x, y x, y/x}]

fast noch zu einem Einzeiler

With[{L = 1, R = 37}, g = Floor[(R - 1)/(L + 1)];
 fR[L, #, R]& /@ Select[Flatten[Table[{i, j}, {i, L + 1, g}, {j, i, g}],
    1], (fS[L, #, R] && (fA[L, #, R] || fA[L, Reverse[#], R]))&]
 ]

Gruss
Udo.

--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/