based/src/Encoding/Base10.hs

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