15 lines
366 B
Haskell
15 lines
366 B
Haskell
module Encoding.Base10
|
|
( enc10
|
|
, dec10
|
|
) where
|
|
|
|
import qualified Data.ByteString.Char8 as C
|
|
import Data.Char (ord, chr, digitToInt, intToDigit)
|
|
|
|
dec10 :: String -> String
|
|
dec10 = map (chr . read) . words
|
|
|
|
enc10 :: String -> String
|
|
enc10 = unwords . map (show . ord)
|
|
-- enc10 str = C.unpack $ C.pack $ Prelude.foldl (\acc char -> acc ++ show (ord char)) "" str
|