Funções com Tipos de dados

[nuno35 0]

Boa Tarde, preciso aqui de uma ajuda tenho estes dois tipos de dados e estou a tentar fazer estas 3 funções ate agr tenho este codigo se alguem me conseguir dar uma ajuda

Data Cor = Vermelho | Azul | Cinzento deriving Show
Data Carro = Carro cor (Maybe Carro) deriving Show

Basicamente pode ir havendo um carro dentro do outro

1 - Recebe um tipo de dado carro e devolve uma lista com todas as cores
 

Lista_Cores :: Carro -> [Cor]
Lista_Cores Carro c (Nothing) = [c]
Lista_Cores Carro c (Car) = [c] : Lista_Cores Car

2 - Recebe um cor um tipo de dado carro e devolve numero de carros com cor = cor 
 

Num_Cor :: Cor -> Carro -> Int
Num_Cor cor Carro c (Nothing) = if cor == c then 1 else 0
Num_Cor cor Carro c (Car)=  if cor == c then 1 + Num_Cor cor Car

3 - O tipo de dados Cor ser Eq gerada pelo par Vermelho == Azul nao percebo bem esta parte de ser gerada por este par 

 

Desde ja Obrigado 

Edited Sunday at 12:33 AM by thoga31
GeSHi