Non-decimal radices/Convert: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: Minor tidying) |
|||
Line 1,378:
If we want to assume a default character set, then a general '''toBase''' (Int -> Int -> String) can be also be derived from '''inBaseDigits'''.
<lang haskell>import
import Data.Char (intToDigit)
import Data.List (unfoldr)
import Data.Tuple (swap)
inBaseDigits :: String -> Int -> String
inBaseDigits ds n = reverse $ unfoldr go n
where
go x
| 0 < x = Just $ first (ds !!) (swap $ quotRem x (length ds))
| otherwise = Nothing
| |||