I coded processing for race data where the position of a competitor is published as n/m. That led to passing the data as published like this -
score[n_Rational] := score[Numerator[n], Denominator[n]] ;
That worked (for a non-linear scoring) until
score[1112/1122]
produced the actual value for
score[556, 561]
Mathematica reduced the rational to lowest terms. Sure, it's the numeric equivalent but not the values I wanted. How do I get to the original rational?
