RosettaCodeData/Task/Casting-out-nines/Haskell/casting-out-nines-3.hs

digits base = Data.List.unfoldr modDiv
  where modDiv 0 = Nothing
        modDiv n = let (q, r) = (n `divMod` base) in Just (r, q)