Fraction reduction: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 2,566:
<lang Mathematica>ClearAll[AnomalousCancellationQ2]
AnomalousCancellationQ2[frac : {i_?Positive, j_?Positive}] :=
Module[{
idig = IntegerDigits[i];
jdig = IntegerDigits[j];
|