Programação Funcional – BSI – 1° Período
Segunda lista de exercícios
Implementar as tarefas de programação descritas no presente documento, usando a
linguagem Haskell .
1. Crie uma função que intercala os elementos de duas listas, de qualquer tamanho,
contendo números inteiros, numa nova lista . Ex:
>intercala [1,2,3,4] [100,200]
[1, 100, 2, 200,3, 4]
intercala::[Int]->[Int]->[Int]
intercala x [] = x
intercala [] x = x
intercala (a:xs) (b:ys) = a: b: intercala xs ys
2. Defina novos tipos para representar os dados contidos numa agenda telefônica
pessoal. Em seguida, crie uma função para recuperar o nome de um contato, a partir
de um número de telefone. Caso o número não seja encontrado, retornar a mensagem
“Telefone desconhecido”.
-- contato = (nome, endereço, telefone, email)
type Contato = ([Char],[Char],[Char],[Char])
type Agenda = [Contato]
listaContato::Agenda
listaContato = [("Ana","SP","1234-1234","[email protected]"),
("Clara","MA","2341-2341","[email protected]"),
("José","DF","3423-3423","[email protected]"),
("Silvio","MG","2134-2134","[email protected]"),
("Marta","SC","4213-4213","[email protected]")]
encontraContato::[Char]->Agenda->[Char]
encontraContato x [] = "Telefone Desconhecido"
encontraContato x ((a,_,t,_):cs) | x == t = a
| otherwise = encontraContato x cs
