16-04-2017, 00:23
Chicos:
A ver si alguno me puede ayudar
Tengo problemas con el TP de Paradigmas.
1.- No esta bien armada la guarda creo porque me hace conflicto con el punto 1 donde definimos a los clientes como data (sugerencia de los ayudantes)
2.- El punto 5 tampoco me compila. Estan definidas las bebidas y lo que producen como types
-- Punto1
data Cliente = UnCliente {nombre :: String , resistencia :: Int , amigos :: Int} deriving Show
--Punto2
unRodri = UnCliente "Rodri" 55 0
unMarcos = UnCliente "Marcos" 40 1
unCristian = UnCliente "Cristian" 2 0
unAna = UnCliente "Ana" 120 2
--Punto3
comoEsta :: [Cliente] -> [Cliente] -> String
comoEsta UnCliente | ((>50).resistencia) UnCliente = "Fresco"
| ((>0).amigos) UnCliente = "Piola"
| otherwise = "duro"
--Punto 5
type Bebida = UnCliente -> UnCliente
grogXD :: Bebida
grogXD (nombre, resistencia,amigos)=(nombre, resistencia==0,amigos)
jarraLoca :: Bebida
jarraLoca (nombre, resistencia, amigos)=(nombre, resistencia -10, amigos ==0)
klusener :: Bebida
klusener (nombre, resistencia, amigos)=(nombre,resistencia - gustoKlusener, amigos)
gustoKlusener gusto = length gusto
gusto = ["chocolate", "huevo", "frutilla"]
tintico :: Bebida
tintico (nombre, resistencia, amigos)= (nombre, resistencia - (amigos*5), amigos)
soda :: Bebida
soda (nombre, resistencia, amigos)= (("e"++r*fuerza++"p"++nombre), resistencia, amigos)
Espero que alguno me pueda ayudar.
Muchas gracias.
El enunciado del TP en cuestion es: https://docs.google.com/document/d/1pzFt...k8u3xeggkw
A ver si alguno me puede ayudar
Tengo problemas con el TP de Paradigmas.
1.- No esta bien armada la guarda creo porque me hace conflicto con el punto 1 donde definimos a los clientes como data (sugerencia de los ayudantes)
2.- El punto 5 tampoco me compila. Estan definidas las bebidas y lo que producen como types
-- Punto1
data Cliente = UnCliente {nombre :: String , resistencia :: Int , amigos :: Int} deriving Show
--Punto2
unRodri = UnCliente "Rodri" 55 0
unMarcos = UnCliente "Marcos" 40 1
unCristian = UnCliente "Cristian" 2 0
unAna = UnCliente "Ana" 120 2
--Punto3
comoEsta :: [Cliente] -> [Cliente] -> String
comoEsta UnCliente | ((>50).resistencia) UnCliente = "Fresco"
| ((>0).amigos) UnCliente = "Piola"
| otherwise = "duro"
--Punto 5
type Bebida = UnCliente -> UnCliente
grogXD :: Bebida
grogXD (nombre, resistencia,amigos)=(nombre, resistencia==0,amigos)
jarraLoca :: Bebida
jarraLoca (nombre, resistencia, amigos)=(nombre, resistencia -10, amigos ==0)
klusener :: Bebida
klusener (nombre, resistencia, amigos)=(nombre,resistencia - gustoKlusener, amigos)
gustoKlusener gusto = length gusto
gusto = ["chocolate", "huevo", "frutilla"]
tintico :: Bebida
tintico (nombre, resistencia, amigos)= (nombre, resistencia - (amigos*5), amigos)
soda :: Bebida
soda (nombre, resistencia, amigos)= (("e"++r*fuerza++"p"++nombre), resistencia, amigos)
Espero que alguno me pueda ayudar.
Muchas gracias.
El enunciado del TP en cuestion es: https://docs.google.com/document/d/1pzFt...k8u3xeggkw