RosettaCodeData/Task/Casting-out-nines/Mathematica/casting-out-nines-4.math

Co9eff[n_, b_: 10] := Mod[n, b - 1];