Non-decimal radices/Convert: Difference between revisions

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 ~~Control~~.~~Arrow~~ (first)

<lang haskell>import Data.Bifunctor (first)

import Data.~~Char~~ (~~intToDigit~~)

import Data.List (unfoldr)

import Data.Tuple (swap)

import Data.Bool (bool)

inBaseDigits :: String -> Int -> String

inBaseDigits ds n = ~~reverse $ unfoldr go n~~

inBaseDigits ds n =

let base = length ds

where

~~go x~~

in reverse $

unfoldr

| 0 < x = Just $ first (ds !!) (swap $ quotRem ~~x (length ds)~~)

| ~~otherwise = Nothing~~

((<*>)

(bool Nothing . Just . first (ds !!) . swap . flip quotRem base)

(0 <))

n

inLowerHex :: Int -> String

inLowerHex = inBaseDigits "0123456789abcdef"

inUpperHex :: Int -> String

inUpperHex = inBaseDigits "0123456789ABCDEF"

inBinary :: Int -> String

inBinary = inBaseDigits "01"

inOctal :: Int -> String

inOctal = inBaseDigits "01234567"

inDevanagariDecimal :: Int -> String

inDevanagariDecimal = inBaseDigits "०१२३४५६७८९"

inHinduArabicDecimal :: Int -> String

inHinduArabicDecimal = inBaseDigits "٠١٢٣٤٥٦٧٨٩"

toBase :: Int -> Int -> String

toBase intBase n

Line 1,413:

Line 1,418:

inBaseDigits (take intBase (['0' .. '9'] ++ ['a' .. 'z'])) n

| otherwise = []

main :: IO ()

main =