Xerxes solutions to Run-Length-Encoding problems

gistfile1.hs

import Data.List (group)

data Segment x = Single x | Multiple Int x
    deriving (Show, Eq)
    
encodeModified :: (Eq a) => [a] -> [Segment a]

--encodeModified xs = map (\charset -> 
--                          if ((length charset) == 1) 
--                            then (Single (head charset)) 
--                            else (Multiple (length charset) (head charset))) (group xs)

--encodeModified = map func . group
--                    where func = (\charset -> 
--                                    if ((length charset) == 1) 
--                                      then (Single (head charset))
--                                      else (Multiple (length charset) (head charset)))

tupleIt :: Eq a => [a] -> [(Int, a)]
tupleIt xs = map (\x -> (length x, head x)) (group xs)

encodeModified xs = map encodeHelper (tupleIt xs)
                    where 
                      encodeHelper (1, x) = Single x
                      encodeHelper (n, x) = Multiple n x