UTNianos

Versión completa: [PARADIGMAS] AYUDA
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
Hola gente,

Necesito ayuda de como resolver este punto de un parcial.
No entiendo bien la consigna. Yo hice esto pero no se si esta bien y me faltan los puntos a. y b.
Gracias de ante mano!

-- 2. Desarrollar el data para el tipo Juego y las funciones ruleta y maquinita sabiendo que un juego se compone por un nombre,
-- una función que determina cuánto dinero se ganaría a partir de un monto apostado y una serie de criterios determinantes para ganar.
-- Para modelar el dinero usar el tipo Float.
-- a- La ruleta que se gana 37 veces lo apostado. Para ganar la persona debe tener una suerte total mayor a 80.
-- b- La maquinita que se basa en un jackpot y lo que se gana es la apuesta más el jackpot. Para ganar se deben cumplir dos condiciones:
-- que la persona tenga una suerte total mayor a 95 y además que tenga paciencia.


type Ganancia = Float -> Float
data Juego = UnJuego{
nombre::String,
ganancias::Ganancia,
criterios::[String]
} deriving Show

(05-05-2016 19:40)matiii_90 escribió: [ -> ]Hola gente,

Necesito ayuda de como resolver este punto de un parcial.
No entiendo bien la consigna. Yo hice esto pero no se si esta bien y me faltan los puntos a. y b.
Gracias de ante mano!

-- 2. Desarrollar el data para el tipo Juego y las funciones ruleta y maquinita sabiendo que un juego se compone por un nombre,
-- una función que determina cuánto dinero se ganaría a partir de un monto apostado y una serie de criterios determinantes para ganar.
-- Para modelar el dinero usar el tipo Float.
-- a- La ruleta que se gana 37 veces lo apostado. Para ganar la persona debe tener una suerte total mayor a 80.
-- b- La maquinita que se basa en un jackpot y lo que se gana es la apuesta más el jackpot. Para ganar se deben cumplir dos condiciones:
-- que la persona tenga una suerte total mayor a 95 y además que tenga paciencia.


type Ganancia = Float -> Float
data Juego = UnJuego{
nombre::String,
ganancias::Ganancia,
criterios::[String]
} deriving Show


Hola..
Viste aca? http://uqbar-wiki.org/index.php?title=Da...en_Haskell

Supongo que en a y b tenes que hacer los juegos ("ruleta",(*37) ,[suerte > 80]] ), ("maquinita", (funcionJackpot), [suerte > 80, paciencia]).
El tipo es así, luego tengo poca seguridad de lo que digo, sobre las funciones que van ahi dentro (*37) suerte funcionJackpot... ...
saludos
URLs de referencia