Índice Remissivo

Um dos desavios do professor foi relacionado a um índice remissivo de uma lista de palavras.

Para iniciar a "caminhada" até uma boa solução, fiz uma bem simples, mas que depende de enviar uma lista com os índices:

indiceRemissivo [] [] = []
indiceRemissivo (x:xs) (l:ls) = (l,x):indiceRemissivo xs ls

Teste:
Tendo as seguintes listas:

ind = [1,2,3,4,5,6]
wor = ["akao", "boa", "essa", "isso", "te", "gui"]

O resultado foi o seguinte:

Main> indiceRemissivo wor ind
[(1,"akao"),(2,"boa"),(3,"essa"),(4,"isso"),(5,"te"),(6,"gui")]

Essa lista de índices é bem simples de ser criada. É simplesmente fazer o seguinte código:

ind = indices xs

onde essa função indice xs é descrita por:

indice xs = [1..(lenght xs)]

 
Por enquanto tem essa simples solução.

té+!
=D