whx
/
based
1
0
Fork 0
Code Issues Pull Requests Projects Releases 9 Wiki Activity

reworked dec10 and enc10

This commit is contained in:
Stefan Friese 2024-05-19 13:51:12 +02:00
parent 5aa3917ad2
commit 252c5e5c68
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Encoding/Base10.hs
View File

@ -5,10 +5,10 @@ module Encoding.Base10
import qualified Data.ByteString.Char8 as C import qualified Data.ByteString.Char8 as C
import Data.Char (ord, chr, digitToInt, intToDigit) import Data.Char (ord, chr, digitToInt, intToDigit)
import Text.XML.HXT.DOM.Util (hexStringToInt)
dec10 :: String -> String dec10 :: String -> String
dec10 = show . hexStringToInt dec10 = map (chr . read) . words
enc10 :: String -> String enc10 :: String -> String
enc10 str = C.unpack $ C.pack $ Prelude.foldl (\acc char -> acc ++ show (ord char)) "" str enc10 = unwords . map (show . ord)
-- enc10 str = C.unpack $ C.pack $ Prelude.foldl (\acc char -> acc ++ show (ord char)) "" str