Jump to content
Rafaela Soares

listas haskell

Recommended Posts

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.

Share this post


Link to post
Share on other sites
Baderous

Usa a função span:

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

Share this post


Link to post
Share on other sites
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)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.