ptr-0.16.8.2: library/Ptr/List.hs

module Ptr.List where

import Ptr.Prelude

{-# INLINE reverseDigits #-}
reverseDigits ::
  Integral a =>
  -- | Radix
  a ->
  -- | Number
  a ->
  [a]
reverseDigits radix =
  let loop x = case divMod x radix of
        (next, digit) -> digit : if next <= 0 then [] else loop next
   in loop