Fraction reduction: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,566: / Line 2,566: @@
 <lang Mathematica>ClearAll[AnomalousCancellationQ2]
 AnomalousCancellationQ2[frac : {i_?Positive, j_?Positive}] :=
- Module[{\[Beta], samedigits, idig, jdig, candidates, ff, p, q, r, tmp},
+ Module[{samedigits, idig, jdig, ff, p, q, r, tmp},
   idig = IntegerDigits[i];
   jdig = IntegerDigits[j];