36. compac

[senapk]

36. compac

• IN : Lista de números u
• OUT: Lista de listas. Cada lista-componente possui um ou dois elementos. Quando possui dois, representa uma sequência de chaves repetidas de u, sendo o primeiro valor a chave que se repete e o segundo o total de repetições. Quando possui um elemento contém uma chave de u que não se repete.

  compac [] == []
  compac [1,1,1] == [[1,3]]
  compac [1,2,3] == [[1],[2],[3]]
  compac [2,2,2,3,4,4,2,9,5,2,4,5,5,5] == [[2,3],[3],[4,2],[2],[9],[5],[2],[4],[5,3]]

[senapk]

Minha melhor solução

-- faz a entrada passando valor e qtd
entry x qtd = if qtd == 1 then [[x]] else [[x, qtd]]

-- se lista vazia, entao nao tem elementos
fn [] _ = []
-- se esse eh o ultimo elemento, insiro quantos ja encontrei mais ele
fn [x] qtd = entry x (qtd + 1)
-- se x eh diferente do proximo
--   insiro quantos ja encontrei mais ele e chamo a recursao zerando o contador
--   senao chamo a recusao dizendo que encontrei mais um
fn (x:y:xs) qtd = if x /= y
                    then entry x (qtd + 1) ++ fn (y:xs) 0
                    else                      fn (y:xs) (qtd + 1)

-- inicio a busca com zero
compac xs = fn xs 0