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

Co9[n_, b_: 10] :=
  With[{ans = FixedPoint[Total@IntegerDigits[#, b] &, n]},
   If[ans == b - 1, 0, ans]];