listas haskell

[Rafaela Soares]

Oi 🙂,

Neste exercício:

Crie um programa que faça uma codificação sobre uma sequência de caracteres iguais, substitua a sequência por !na, onde n é o número de vezes que o caracter a é repetido. Note que só é interessante comprimir sequências maiores que 3. Lembre que uma string (sequência de caracteres) é equivalente a uma lista de caracteres.

Exemplo: > comprime “asdffffghjjkllllpoooi”

                   “asd!4fghjjk!4lpoooi”

 

Pensei nisto:

comprimir :: String -> String
comprimir [] = []
comprimir (h:t) = if (h == head t)
                  then  '!' : (1 + aux t) : head
                  else h : comprimir t 

             where aux :: String -> Int
                   aux (h:t) = if h == head t 
                                  then 1 + aux t 
                                  else 0

Mas não consigo sair daqui.

Obrigada pela atenção.

[Baderous]

Usa a função span:

	> span (=='a') "asdffffghjjkllllpoooi"
("a","sdffffghjjkllllpoooi")
	> span (=='f') "ffffghjjkllllpoooi"
("ffff","ghjjkllllpoooi")

[Baderous]

Visto que já passou 1 mês desde o post inicial e sem feedback, deixo aqui a minha solução:

comprime :: String -> String
comprime "" = ""
comprime [c] = [c]
comprime (c:st) = let (seq,rest) = span (==c) (c:st)
                      len = length seq
                  in if len > 3 then ("!" ++ show len ++ [c]) ++ comprime rest
                     else seq++(comprime rest)