ClearAll[InverseMinkowskiQuestionMark] InverseMinkowskiQuestionMark[val_] := Module[{x}, (x /. FindRoot[MinkowskiQuestionMark[x] == val, {x, Floor[val], Ceiling[val]}])] MinkowskiQuestionMark[GoldenRatio] InverseMinkowskiQuestionMark[-5/9] // RootApproximant MinkowskiQuestionMark[InverseMinkowskiQuestionMark[0.1213141516171819]] InverseMinkowskiQuestionMark[MinkowskiQuestionMark[0.1213141516171819]]