Fraction reduction: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 2,590:
]
]
ijs = Select[Select[Range[1, 9999], IntegerDigits /* FreeQ[0]], IntegerDigits /* DuplicateFreeQ];
res = Reap[
Line 2,600 ⟶ 2,598:
out = AnomalousCancellationQ2[{num, den}];
If[Length[out] > 0,
Sow[out]
]
| |||