Donar $20 Donar $50 Donar $100 Donar mensualmente
 


Enviar respuesta 
 
Calificación:
  • 1 votos - 5 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Buscar en el tema
TP Funcional (Haskell)
Autor Mensaje
sentey Sin conexión
Presidente del CEIT
fressi renunciessi abandonessi
********

Análisis de Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.544
Agradecimientos dados: 128
Agradecimientos: 197 en 137 posts
Registro en: Aug 2010
Mensaje: #1
TP Funcional (Haskell) Trabajo practico y 1 más Paradigmas de Programación
Buenas gente!
Estoy con un problema con unos ejercicios de Haskell, espero que alguno me pueda ayudar.

Es el punto 4:

Cita:4. Rutina de ejercicios:
a. Dada una rutina (tupla con un nombre, duración total y lista de ejercicios específicos) y una
persona, obtener a la persona luego de realizar la rutina. La cantidad de minutos dedicada a
cada ejercicio es la misma.
Mostrar un ejemplo de uso usando todos los ejercicios del punto anterior.
Resolver de dos formas:
● Con recursividad
● Con fold

Mi problema es que no se como pasarle una lista de funciones (rutinas) a una persona, mas aun cuando algunas de esas rutinas tienen argumentos adicionales (kilos, inclinacion, etc)

Dejo el enunciado adjunto como referencia.

Y acá esta lo que tengo hecho del TP hasta ahora:


type Nombre = String
type Edad = Float
type Peso = Float
type Tonificacion = Float

data Persona = Socio Nombre Edad Peso Tonificacion deriving Show

ana = (Socio "ana" 25.0 50.0 6.0)
andres = (Socio "andres" 30.0 120.0 1.0)
pancho = (Socio "francisco" 40.0 120.0 1.0)

--1
saludable :: Persona -> Bool
saludable persona = not (obeso persona) && tonificacion persona > 5.0

--2
quemarCalorias :: Float -> Persona -> Persona
quemarCalorias calorias persona | obeso persona = bajarDePeso (calorias/150.0) persona
| edad persona > 30.0 && calorias > 200.0 = bajarDePeso 1 persona
| otherwise = bajarDePeso (calorias / (peso persona * edad persona)) persona

--3
caminataEnCinta :: Float -> Persona -> Persona
caminataEnCinta minutos persona = quemarCalorias (5.0 * minutos) persona

entrenamientoEnCinta :: Float -> Persona -> Persona
entrenamientoEnCinta minutos persona = quemarCalorias (velocidadPromedio minutos * minutos) persona

pesas :: Float -> Float -> Persona -> Persona
pesas minutos kilos persona | minutos > 10.0 = aumentarTonificacion (kilos / 10.0) persona
| otherwise = persona

colina :: Float -> Float -> Persona -> Persona
colina minutos inclinacion persona = quemarCalorias (2.0 * minutos * inclinacion) persona

montana :: Float -> Float -> Persona -> Persona
montana minutos inclinacion persona = ((colina (minutos/2.0) inclinacion).(colina (minutos/2.0) (inclinacion+3.0)).(aumentarTonificacion 1.0)) persona


{-
4a
aplicarRutina :: (String, Float, [(Float -> Persona -> Persona)]) -> Persona -> Persona
aplicarRutina (nombreRutina, duracionRutina, ejercicios) persona = map (ejercicios (duracionRutina/length ejercicios)) persona

rutina = [caminataEnCinta, entrenamientoEnCinta] --, pesas , colina, montana llevan argumento adicional


4b
type Resumen = (Nombre, Peso, Tonificacion)

resumenRutina :: Rutina -> Persona -> Resumen
resumenRutina =

5
rutinasSaludables :: [Rutina] -> [Rutina]
rutinasSaludables =

6
???

-}

--Funciones Auxiliares
nombre (Socio nombre _ _ _) = nombre
edad (Socio _ edad _ _) = edad
peso (Socio _ _ peso _) = peso
tonificacion (Socio _ _ _ tonificacion) = tonificacion

obeso persona = peso persona > 100.0

bajarDePeso cantidad (Socio nombre edad peso tonificacion) = (Socio nombre edad (peso-cantidad) tonificacion)

velocidadPromedio :: Float -> Float
velocidadPromedio minutos = (velocidadMinima + velocidadMaxima minutos) / 2.0
velocidadMinima :: Float
velocidadMinima = 6.0
velocidadMaxima :: Float -> Float
velocidadMaxima minutos = 6.0 + minutos / 5.0

aumentarTonificacion cantidad (Socio nombre edad peso tonificacion) = (Socio nombre edad peso (tonificacion+cantidad))

--Pruebas

{-
Main> saludable ana
True

Main> saludable andres
False

Main> quemarCalorias 300 pancho
Socio "francisco" 40.0 118.0 1.0

Main> caminataEnCinta 40 pancho
Socio "francisco" 40.0 118.6667 1.0

Main> entrenamientoEnCinta 40 pancho
Socio "francisco" 40.0 117.3333 1.0

Main> pesas 50 15 pancho
Socio "francisco" 40.0 120.0 2.5

Main> colina 5 40 pancho
Socio "francisco" 40.0 117.3333 1.0

Main> montana 5 40 pancho
Socio "francisco" 40.0 117.2333 2.0
-}



Gracias!


Archivo(s) adjuntos
.pdf  tp2.pdf (Tamaño: 102,83 KB / Descargas: 49)

sentey escribió:Voy a cambiar esta firma el día que Me$$i gane un mundial
29-04-2014 10:37
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Ichiluk Sin conexión
Campeon del cubo Rubik
Metametaprogramando.
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 134
Agradecimientos dados: 5
Agradecimientos: 21 en 18 posts
Registro en: Apr 2008
Mensaje: #2
RE: TP Funcional (Haskell)
1)
Tal vez, y sólo tal vez, no es una buena idea poner tu resolución de un ejercicio para que lo vea todo el mundo =P

2)
Aplicá parcialmente las funciones pesas, colina y montaña. O pasale parámetros extra a las otras funciones que no usen, para hacerlas del mismo tipo.
29-04-2014 11:40
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
sentey Sin conexión
Presidente del CEIT
fressi renunciessi abandonessi
********

Análisis de Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.544
Agradecimientos dados: 128
Agradecimientos: 197 en 137 posts
Registro en: Aug 2010
Mensaje: #3
RE: TP Funcional (Haskell)
(29-04-2014 11:40)Ichiluk escribió:  1)
Tal vez, y sólo tal vez, no es una buena idea poner tu resolución de un ejercicio para que lo vea todo el mundo =P
No creo que sea problema, al contrario, puede servirle de mucho a alguien que no entiende el tema, siempre teniendo en cuenta, que no está corregido y puede tener errores, por supuesto.

(29-04-2014 11:40)Ichiluk escribió:  2)
Aplicá parcialmente las funciones pesas, colina y montaña. O pasale parámetros extra a las otras funciones que no usen, para hacerlas del mismo tipo.

Pasarles parametros extra a las otras funciones funcionaría, de hecho es la forma mas simple, pero me parece que estaría haciendo cosas que en PdeP llaman "poco felices" y "bajan el CFD".

Por ahora lo que hice es esto. Funciona bien para las funciones caminataEnCinta y entrenamientoEnCinta.
Me podrías aclarar como usar aplicación parcial para las funciones pesas, colina y montaña?

Gracias!!



type Rutina = (String, Float, [(Float -> Persona -> Persona)])

aplicarRutina :: Rutina -> Persona -> Persona
aplicarRutina (nombreRutina, duracionRutina, []) persona = persona
aplicarRutina (nombreRutina, duracionRutina, (ej:ejs)) persona = aplicarRutina (nombreRutina, duracionRutina, ejs) (ej duracionRutina persona)

rutina :: Rutina
rutina = ("rutina", 50.0, [caminataEnCinta, entrenamientoEnCinta]) --, pesas , colina, montana llevan argumento adicional



Main> aplicarRutina rutina pancho
Socio "francisco" 40.0 114.6667 1.0

sentey escribió:Voy a cambiar esta firma el día que Me$$i gane un mundial
(Este mensaje fue modificado por última vez en: 29-04-2014 11:54 por sentey.)
29-04-2014 11:53
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
sentey Sin conexión
Presidente del CEIT
fressi renunciessi abandonessi
********

Análisis de Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.544
Agradecimientos dados: 128
Agradecimientos: 197 en 137 posts
Registro en: Aug 2010
Mensaje: #4
RE: TP Funcional (Haskell)
Llegue al punto de My code works, I have no idea why

Ni dios sabe como pero a haskell le paso el argumento y se da cuenta de donde carajo tiene que meterlo



--4a
type Rutina = (String, Float, [(Float -> Persona -> Persona)])

rutina :: Rutina
rutina = ("rutina", 200.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 100.0), (colina 20.0), (montana 50.0)]) --, pesas , colina, montana llevan argumento adicional

aplicarRutina :: Rutina -> Persona -> Persona
aplicarRutina (_, _, []) persona = persona
aplicarRutina (nombreRutina, duracionRutina, (ej:ejs)) persona = aplicarRutina (nombreRutina, duracionRutina, ejs) (ej duracionRutina persona)



sentey escribió:Voy a cambiar esta firma el día que Me$$i gane un mundial
29-04-2014 14:05
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Ichiluk Sin conexión
Campeon del cubo Rubik
Metametaprogramando.
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 134
Agradecimientos dados: 5
Agradecimientos: 21 en 18 posts
Registro en: Apr 2008
Mensaje: #5
RE: TP Funcional (Haskell)
Podés hacer que tu ejercicio sea por 10 minutos.

Entonces


hacerPesasPor10Minutos kilos persona = pesas 10.0 kilos persona


y

hacerPesasPor10Minutos :: Float -> Persona -> Persona


que es el mismo tipo que las anteriores.

Lo mismo con las otras funciones =)
29-04-2014 14:07
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
sentey Sin conexión
Presidente del CEIT
fressi renunciessi abandonessi
********

Análisis de Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.544
Agradecimientos dados: 128
Agradecimientos: 197 en 137 posts
Registro en: Aug 2010
Mensaje: #6
RE: TP Funcional (Haskell)
Gracias por las sugerencias, pero dudo que se acepte eso, ya que estoy modificando otras funciones, las cuales son parte del enunciado.
Dejo el TP terminado (me falto hacer el 4a con fold, no se como será) por si a alguno le sirve.



-- TP2 Individual - Paradigma Funcional
-- Alumno: Franco Hecht
-- Legajo: 140.939-6

type Nombre = String
type Edad = Float
type Peso = Float
type Tonificacion = Float

data Persona = Socio Nombre Edad Peso Tonificacion deriving Show

ana = (Socio "ana" 25.0 50.0 6.0)
andres = (Socio "andres" 30.0 120.0 1.0)
pancho = (Socio "francisco" 40.0 120.0 1.0)

--1
saludable :: Persona -> Bool
saludable persona = not (obeso persona) && tonificacion persona > 5.0

--2
quemarCalorias :: Float -> Persona -> Persona
quemarCalorias calorias persona | obeso persona = bajarDePeso (calorias/150.0) persona
| edad persona > 30.0 && calorias > 200.0 = bajarDePeso 1 persona
| otherwise = bajarDePeso (calorias / (peso persona * edad persona)) persona

--3
caminataEnCinta :: Float -> Persona -> Persona
caminataEnCinta minutos persona = quemarCalorias (5.0 * minutos) persona

entrenamientoEnCinta :: Float -> Persona -> Persona
entrenamientoEnCinta minutos persona = quemarCalorias (velocidadPromedio minutos * minutos) persona

pesas :: Float -> Float -> Persona -> Persona
pesas minutos kilos persona | minutos > 10.0 = aumentarTonificacion (kilos / 10.0) persona
| otherwise = persona

colina :: Float -> Float -> Persona -> Persona
colina minutos inclinacion persona = quemarCalorias (2.0 * minutos * inclinacion) persona

montana :: Float -> Float -> Persona -> Persona
montana minutos inclinacion persona = ((colina (minutos/2.0) inclinacion).(colina (minutos/2.0) (inclinacion+3.0)).(aumentarTonificacion 1.0)) persona

--4a
type Rutina = (String, Float, [(Float -> Persona -> Persona)])

rutina :: Rutina
rutina = ("rutina", 200.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 100.0), (colina 20.0), (montana 50.0)]) --, pesas , colina, montana llevan argumento adicional

aplicarRutina :: Rutina -> Persona -> Persona
aplicarRutina (_, _, []) persona = persona
aplicarRutina (nombreRutina, duracionRutina, (ej:ejs)) persona = aplicarRutina (nombreRutina, duracionRutina, ejs) (ej duracionRutina persona)

{-
No pude aplicar fold, ya que su tipo es Funcion -> Valor Inicial -> Lista de valores -> Resultado
Y en este ejercicio, en lugar de tener una funcion y una lista de valores,
tenemos un valor (persona) y una lista de funciones (rutina)
-}

--4b
type Resumen = (Nombre, Peso, Tonificacion)

resumenRutina :: Rutina -> Persona -> Resumen
resumenRutina rutina persona = (nombreRutina rutina, (peso persona - peso (aplicarRutina rutina persona)), (tonificacion (aplicarRutina rutina persona) - tonificacion persona))

--5
--Nota: Considero que el "resumen" de una rutina, es su nombre (debido a que es poco conveniente mostrar una lista de rutinas)
rutinasSaludables :: [Rutina] -> Persona -> [String]
rutinasSaludables rutinas persona = map nombreRutina (filter (saludable.(flip aplicarRutina) persona) rutinas)

rutinas :: [Rutina]
rutinas = [("rutina", 200.0, [caminataEnCinta, entrenamientoEnCinta,(colina 20.0), (montana 50.0)]),
("rutina2", 100.0, [caminataEnCinta, (pesas 100.0), (colina 80.0), (montana 20.0)]),
("rutina3", 300.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 500.0), (colina 40.0), (montana 30.0)]),
("rutina4", 500.0, [caminataEnCinta, (pesas 100.0), (colina 20.0), (montana 50.0)]),
("rutina5", 450.0, [entrenamientoEnCinta, (pesas 100.0), (colina 50.0), (montana 500.0)]),
("rutina6", 100.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 100.0), (montana 100.0)])
]


--6
{-
Usando la funcion definida en este TP (rutinasSaludables) no sería posible, ya que la funcion filter
recorre toda la lista de rutinas antes de devolver las rutinas que hacen a la persona saludable,
y al ser una lista infinita nunca la terminaria de recorrer.
Lo que se podría hacer, es agregar la funcion head, para que devuelva la primer rutina que la haga
saludable. Esto funcionaría, pero tendría el problema de que, si no hay ninguna que la haga saludable,
el programa seguiría ejecutándose indefinidamente.
Ejemplo:
Main> head (rutinasSaludables rutinas pancho)
"rutina2"
-}

--Funciones Auxiliares
nombre (Socio nombre _ _ _) = nombre
edad (Socio _ edad _ _) = edad
peso (Socio _ _ peso _) = peso
tonificacion (Socio _ _ _ tonificacion) = tonificacion

obeso persona = peso persona > 100.0

bajarDePeso cantidad (Socio nombre edad peso tonificacion) = (Socio nombre edad (peso-cantidad) tonificacion)

velocidadPromedio :: Float -> Float
velocidadPromedio minutos = (velocidadMinima + velocidadMaxima minutos) / 2.0
velocidadMinima :: Float
velocidadMinima = 6.0
velocidadMaxima :: Float -> Float
velocidadMaxima minutos = 6.0 + minutos / 5.0

aumentarTonificacion cantidad (Socio nombre edad peso tonificacion) = (Socio nombre edad peso (tonificacion+cantidad))

nombreRutina (nombreRutina, _, _) = nombreRutina
duracionRutina (_, duracionRutina, _) = duracionRutina
ejerciciosRutina (_, _, ejerciciosRutina) = ejerciciosRutina

--Pruebas

{-
Main> saludable ana
True
Main> saludable andres
False

Main> quemarCalorias 300 pancho
Socio "francisco" 40.0 118.0 1.0

Main> caminataEnCinta 40 pancho
Socio "francisco" 40.0 118.6667 1.0

Main> entrenamientoEnCinta 40 pancho
Socio "francisco" 40.0 117.3333 1.0
Main> pesas 50 15 pancho
Socio "francisco" 40.0 120.0 2.5
Main> colina 5 40 pancho
Socio "francisco" 40.0 117.3333 1.0
Main> montana 5 40 pancho
Socio "francisco" 40.0 117.2333 2.0

Main> aplicarRutina rutina pancho
Socio "francisco" 40.0 75.66667 22.0

Main> resumenRutina rutina pancho
("rutina",44.33333,21.0)

Main> rutinasSaludables rutinas ana
["rutina","rutina2","rutina3","rutina5","rutina6"]
Main> rutinasSaludables rutinas andres
["rutina2","rutina5","rutina6"]
Main> rutinasSaludables rutinas pancho
["rutina2","rutina3","rutina4","rutina5","rutina6"]
-}


sentey escribió:Voy a cambiar esta firma el día que Me$$i gane un mundial
29-04-2014 15:37
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Ichiluk Sin conexión
Campeon del cubo Rubik
Metametaprogramando.
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 134
Agradecimientos dados: 5
Agradecimientos: 21 en 18 posts
Registro en: Apr 2008
Mensaje: #7
RE: TP Funcional (Haskell)
No entiendo el problema que tenés... de hecho, estás aplicando parcialmente en tu resolución =P


Volviendo a (1), no me parece bien postear la resolución de un TP antes de corregirlo. Es como dejar que se copien =)
29-04-2014 16:42
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
sentey Sin conexión
Presidente del CEIT
fressi renunciessi abandonessi
********

Análisis de Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.544
Agradecimientos dados: 128
Agradecimientos: 197 en 137 posts
Registro en: Aug 2010
Mensaje: #8
RE: TP Funcional (Haskell)
El enunciado dice "Mostrar un ejemplo de uso usando todos los ejercicios del punto anterior."
Es decir, la idea, es que acepte una lista de rutinas que incluya las funciones de los puntos anteriores...por eso, no creo que esté permitido cambiar las funciones de los ejercicios anteriores...por eso es que recurrí a aplicación parcial (luego de un buen rato tratando de entender como hacerlo =P)

(29-04-2014 16:42)Ichiluk escribió:  Volviendo a (1), no me parece bien postear la resolución de un TP antes de corregirlo. Es como dejar que se copien =)
Ya no estamos en el secundario...dudo que alguno venga a "copiarse".
A mi no me parece mal, al contrario, puede ayudar al que busca como hacer tal punto o tal otro.
No creo que sea tan boludo como para entregar el TP tal cual lo publiqué =P


Off-topic:

Si no me equivoco, en 2012 cursamos juntos SSL con Solá a la noche, puede ser?

sentey escribió:Voy a cambiar esta firma el día que Me$$i gane un mundial
(Este mensaje fue modificado por última vez en: 29-04-2014 17:03 por sentey.)
29-04-2014 16:51
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Ichiluk Sin conexión
Campeon del cubo Rubik
Metametaprogramando.
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 134
Agradecimientos dados: 5
Agradecimientos: 21 en 18 posts
Registro en: Apr 2008
Mensaje: #9
RE: TP Funcional (Haskell)
En el 1er cuatri? Si es así, es probable que sí. No se quien sos =P
29-04-2014 17:18
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
matiasm Sin conexión
Empleado del buffet
Sin estado :(
*

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 2
Agradecimientos dados: 0
Agradecimientos: 0 en 0 posts
Registro en: May 2014
Mensaje: #10
RE: TP Funcional (Haskell)
(29-04-2014 15:37)sentey escribió:  Gracias por las sugerencias, pero dudo que se acepte eso, ya que estoy modificando otras funciones, las cuales son parte del enunciado.
Dejo el TP terminado (me falto hacer el 4a con fold, no se como será) por si a alguno le sirve.



-- TP2 Individual - Paradigma Funcional
-- Alumno: Franco Hecht
-- Legajo: 140.939-6

type Nombre = String
type Edad = Float
type Peso = Float
type Tonificacion = Float

data Persona = Socio Nombre Edad Peso Tonificacion deriving Show

ana = (Socio "ana" 25.0 50.0 6.0)
andres = (Socio "andres" 30.0 120.0 1.0)
pancho = (Socio "francisco" 40.0 120.0 1.0)

--1
saludable :: Persona -> Bool
saludable persona = not (obeso persona) && tonificacion persona > 5.0

--2
quemarCalorias :: Float -> Persona -> Persona
quemarCalorias calorias persona | obeso persona = bajarDePeso (calorias/150.0) persona
| edad persona > 30.0 && calorias > 200.0 = bajarDePeso 1 persona
| otherwise = bajarDePeso (calorias / (peso persona * edad persona)) persona

--3
caminataEnCinta :: Float -> Persona -> Persona
caminataEnCinta minutos persona = quemarCalorias (5.0 * minutos) persona

entrenamientoEnCinta :: Float -> Persona -> Persona
entrenamientoEnCinta minutos persona = quemarCalorias (velocidadPromedio minutos * minutos) persona

pesas :: Float -> Float -> Persona -> Persona
pesas minutos kilos persona | minutos > 10.0 = aumentarTonificacion (kilos / 10.0) persona
| otherwise = persona

colina :: Float -> Float -> Persona -> Persona
colina minutos inclinacion persona = quemarCalorias (2.0 * minutos * inclinacion) persona

montana :: Float -> Float -> Persona -> Persona
montana minutos inclinacion persona = ((colina (minutos/2.0) inclinacion).(colina (minutos/2.0) (inclinacion+3.0)).(aumentarTonificacion 1.0)) persona

--4a
type Rutina = (String, Float, [(Float -> Persona -> Persona)])

rutina :: Rutina
rutina = ("rutina", 200.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 100.0), (colina 20.0), (montana 50.0)]) --, pesas , colina, montana llevan argumento adicional

aplicarRutina :: Rutina -> Persona -> Persona
aplicarRutina (_, _, []) persona = persona
aplicarRutina (nombreRutina, duracionRutina, (ej:ejs)) persona = aplicarRutina (nombreRutina, duracionRutina, ejs) (ej duracionRutina persona)

{-
No pude aplicar fold, ya que su tipo es Funcion -> Valor Inicial -> Lista de valores -> Resultado
Y en este ejercicio, en lugar de tener una funcion y una lista de valores,
tenemos un valor (persona) y una lista de funciones (rutina)
-}

--4b
type Resumen = (Nombre, Peso, Tonificacion)

resumenRutina :: Rutina -> Persona -> Resumen
resumenRutina rutina persona = (nombreRutina rutina, (peso persona - peso (aplicarRutina rutina persona)), (tonificacion (aplicarRutina rutina persona) - tonificacion persona))

--5
--Nota: Considero que el "resumen" de una rutina, es su nombre (debido a que es poco conveniente mostrar una lista de rutinas)
rutinasSaludables :: [Rutina] -> Persona -> [String]
rutinasSaludables rutinas persona = map nombreRutina (filter (saludable.(flip aplicarRutina) persona) rutinas)

rutinas :: [Rutina]
rutinas = [("rutina", 200.0, [caminataEnCinta, entrenamientoEnCinta,(colina 20.0), (montana 50.0)]),
("rutina2", 100.0, [caminataEnCinta, (pesas 100.0), (colina 80.0), (montana 20.0)]),
("rutina3", 300.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 500.0), (colina 40.0), (montana 30.0)]),
("rutina4", 500.0, [caminataEnCinta, (pesas 100.0), (colina 20.0), (montana 50.0)]),
("rutina5", 450.0, [entrenamientoEnCinta, (pesas 100.0), (colina 50.0), (montana 500.0)]),
("rutina6", 100.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 100.0), (montana 100.0)])
]


--6
{-
Usando la funcion definida en este TP (rutinasSaludables) no sería posible, ya que la funcion filter
recorre toda la lista de rutinas antes de devolver las rutinas que hacen a la persona saludable,
y al ser una lista infinita nunca la terminaria de recorrer.
Lo que se podría hacer, es agregar la funcion head, para que devuelva la primer rutina que la haga
saludable. Esto funcionaría, pero tendría el problema de que, si no hay ninguna que la haga saludable,
el programa seguiría ejecutándose indefinidamente.
Ejemplo:
Main> head (rutinasSaludables rutinas pancho)
"rutina2"
-}

--Funciones Auxiliares
nombre (Socio nombre _ _ _) = nombre
edad (Socio _ edad _ _) = edad
peso (Socio _ _ peso _) = peso
tonificacion (Socio _ _ _ tonificacion) = tonificacion

obeso persona = peso persona > 100.0

bajarDePeso cantidad (Socio nombre edad peso tonificacion) = (Socio nombre edad (peso-cantidad) tonificacion)

velocidadPromedio :: Float -> Float
velocidadPromedio minutos = (velocidadMinima + velocidadMaxima minutos) / 2.0
velocidadMinima :: Float
velocidadMinima = 6.0
velocidadMaxima :: Float -> Float
velocidadMaxima minutos = 6.0 + minutos / 5.0

aumentarTonificacion cantidad (Socio nombre edad peso tonificacion) = (Socio nombre edad peso (tonificacion+cantidad))

nombreRutina (nombreRutina, _, _) = nombreRutina
duracionRutina (_, duracionRutina, _) = duracionRutina
ejerciciosRutina (_, _, ejerciciosRutina) = ejerciciosRutina

--Pruebas

{-
Main> saludable ana
True
Main> saludable andres
False

Main> quemarCalorias 300 pancho
Socio "francisco" 40.0 118.0 1.0

Main> caminataEnCinta 40 pancho
Socio "francisco" 40.0 118.6667 1.0

Main> entrenamientoEnCinta 40 pancho
Socio "francisco" 40.0 117.3333 1.0
Main> pesas 50 15 pancho
Socio "francisco" 40.0 120.0 2.5
Main> colina 5 40 pancho
Socio "francisco" 40.0 117.3333 1.0
Main> montana 5 40 pancho
Socio "francisco" 40.0 117.2333 2.0

Main> aplicarRutina rutina pancho
Socio "francisco" 40.0 75.66667 22.0

Main> resumenRutina rutina pancho
("rutina",44.33333,21.0)

Main> rutinasSaludables rutinas ana
["rutina","rutina2","rutina3","rutina5","rutina6"]
Main> rutinasSaludables rutinas andres
["rutina2","rutina5","rutina6"]
Main> rutinasSaludables rutinas pancho
["rutina2","rutina3","rutina4","rutina5","rutina6"]
-}



Una pregunta , no estas usando el tiempo total de la rutina a cada ejercicio ?. Por lo que interprete del enunciado habria que dividir la duracion total por el length de la lista de ejercicios. Ese es mi problema cuando lo hago no me deja dividir los minutos que son de tipo Float por el length de la lista que es de tipo entero, o quizas yo interprete mal la consigna. Si alguno me podria dar alguna idea me seria de mucha ayuda. Saludos
01-05-2014 18:05
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
matiasm Sin conexión
Empleado del buffet
Sin estado :(
*

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 2
Agradecimientos dados: 0
Agradecimientos: 0 en 0 posts
Registro en: May 2014
Mensaje: #11
RE: TP Funcional (Haskell)
(29-04-2014 15:37)sentey escribió:  Gracias por las sugerencias, pero dudo que se acepte eso, ya que estoy modificando otras funciones, las cuales son parte del enunciado.
Dejo el TP terminado (me falto hacer el 4a con fold, no se como será) por si a alguno le sirve.



-- TP2 Individual - Paradigma Funcional
-- Alumno: Franco Hecht
-- Legajo: 140.939-6

type Nombre = String
type Edad = Float
type Peso = Float
type Tonificacion = Float

data Persona = Socio Nombre Edad Peso Tonificacion deriving Show

ana = (Socio "ana" 25.0 50.0 6.0)
andres = (Socio "andres" 30.0 120.0 1.0)
pancho = (Socio "francisco" 40.0 120.0 1.0)

--1
saludable :: Persona -> Bool
saludable persona = not (obeso persona) && tonificacion persona > 5.0

--2
quemarCalorias :: Float -> Persona -> Persona
quemarCalorias calorias persona | obeso persona = bajarDePeso (calorias/150.0) persona
| edad persona > 30.0 && calorias > 200.0 = bajarDePeso 1 persona
| otherwise = bajarDePeso (calorias / (peso persona * edad persona)) persona

--3
caminataEnCinta :: Float -> Persona -> Persona
caminataEnCinta minutos persona = quemarCalorias (5.0 * minutos) persona

entrenamientoEnCinta :: Float -> Persona -> Persona
entrenamientoEnCinta minutos persona = quemarCalorias (velocidadPromedio minutos * minutos) persona

pesas :: Float -> Float -> Persona -> Persona
pesas minutos kilos persona | minutos > 10.0 = aumentarTonificacion (kilos / 10.0) persona
| otherwise = persona

colina :: Float -> Float -> Persona -> Persona
colina minutos inclinacion persona = quemarCalorias (2.0 * minutos * inclinacion) persona

montana :: Float -> Float -> Persona -> Persona
montana minutos inclinacion persona = ((colina (minutos/2.0) inclinacion).(colina (minutos/2.0) (inclinacion+3.0)).(aumentarTonificacion 1.0)) persona

--4a
type Rutina = (String, Float, [(Float -> Persona -> Persona)])

rutina :: Rutina
rutina = ("rutina", 200.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 100.0), (colina 20.0), (montana 50.0)]) --, pesas , colina, montana llevan argumento adicional

aplicarRutina :: Rutina -> Persona -> Persona
aplicarRutina (_, _, []) persona = persona
aplicarRutina (nombreRutina, duracionRutina, (ej:ejs)) persona = aplicarRutina (nombreRutina, duracionRutina, ejs) (ej duracionRutina persona)

{-
No pude aplicar fold, ya que su tipo es Funcion -> Valor Inicial -> Lista de valores -> Resultado
Y en este ejercicio, en lugar de tener una funcion y una lista de valores,
tenemos un valor (persona) y una lista de funciones (rutina)
-}

--4b
type Resumen = (Nombre, Peso, Tonificacion)

resumenRutina :: Rutina -> Persona -> Resumen
resumenRutina rutina persona = (nombreRutina rutina, (peso persona - peso (aplicarRutina rutina persona)), (tonificacion (aplicarRutina rutina persona) - tonificacion persona))

--5
--Nota: Considero que el "resumen" de una rutina, es su nombre (debido a que es poco conveniente mostrar una lista de rutinas)
rutinasSaludables :: [Rutina] -> Persona -> [String]
rutinasSaludables rutinas persona = map nombreRutina (filter (saludable.(flip aplicarRutina) persona) rutinas)

rutinas :: [Rutina]
rutinas = [("rutina", 200.0, [caminataEnCinta, entrenamientoEnCinta,(colina 20.0), (montana 50.0)]),
("rutina2", 100.0, [caminataEnCinta, (pesas 100.0), (colina 80.0), (montana 20.0)]),
("rutina3", 300.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 500.0), (colina 40.0), (montana 30.0)]),
("rutina4", 500.0, [caminataEnCinta, (pesas 100.0), (colina 20.0), (montana 50.0)]),
("rutina5", 450.0, [entrenamientoEnCinta, (pesas 100.0), (colina 50.0), (montana 500.0)]),
("rutina6", 100.0, [caminataEnCinta, entrenamientoEnCinta, (pesas 100.0), (montana 100.0)])
]


--6
{-
Usando la funcion definida en este TP (rutinasSaludables) no sería posible, ya que la funcion filter
recorre toda la lista de rutinas antes de devolver las rutinas que hacen a la persona saludable,
y al ser una lista infinita nunca la terminaria de recorrer.
Lo que se podría hacer, es agregar la funcion head, para que devuelva la primer rutina que la haga
saludable. Esto funcionaría, pero tendría el problema de que, si no hay ninguna que la haga saludable,
el programa seguiría ejecutándose indefinidamente.
Ejemplo:
Main> head (rutinasSaludables rutinas pancho)
"rutina2"
-}

--Funciones Auxiliares
nombre (Socio nombre _ _ _) = nombre
edad (Socio _ edad _ _) = edad
peso (Socio _ _ peso _) = peso
tonificacion (Socio _ _ _ tonificacion) = tonificacion

obeso persona = peso persona > 100.0

bajarDePeso cantidad (Socio nombre edad peso tonificacion) = (Socio nombre edad (peso-cantidad) tonificacion)

velocidadPromedio :: Float -> Float
velocidadPromedio minutos = (velocidadMinima + velocidadMaxima minutos) / 2.0
velocidadMinima :: Float
velocidadMinima = 6.0
velocidadMaxima :: Float -> Float
velocidadMaxima minutos = 6.0 + minutos / 5.0

aumentarTonificacion cantidad (Socio nombre edad peso tonificacion) = (Socio nombre edad peso (tonificacion+cantidad))

nombreRutina (nombreRutina, _, _) = nombreRutina
duracionRutina (_, duracionRutina, _) = duracionRutina
ejerciciosRutina (_, _, ejerciciosRutina) = ejerciciosRutina

--Pruebas

{-
Main> saludable ana
True
Main> saludable andres
False

Main> quemarCalorias 300 pancho
Socio "francisco" 40.0 118.0 1.0

Main> caminataEnCinta 40 pancho
Socio "francisco" 40.0 118.6667 1.0

Main> entrenamientoEnCinta 40 pancho
Socio "francisco" 40.0 117.3333 1.0
Main> pesas 50 15 pancho
Socio "francisco" 40.0 120.0 2.5
Main> colina 5 40 pancho
Socio "francisco" 40.0 117.3333 1.0
Main> montana 5 40 pancho
Socio "francisco" 40.0 117.2333 2.0

Main> aplicarRutina rutina pancho
Socio "francisco" 40.0 75.66667 22.0

Main> resumenRutina rutina pancho
("rutina",44.33333,21.0)

Main> rutinasSaludables rutinas ana
["rutina","rutina2","rutina3","rutina5","rutina6"]
Main> rutinasSaludables rutinas andres
["rutina2","rutina5","rutina6"]
Main> rutinasSaludables rutinas pancho
["rutina2","rutina3","rutina4","rutina5","rutina6"]
-}



Una pregunta , no estas usando el tiempo total de la rutina a cada ejercicio ?. Por lo que interprete del enunciado habria que dividir la duracion total por el length de la lista de ejercicios. Ese es mi problema cuando lo hago no me deja dividir los minutos que son de tipo Float por el length de la lista que es de tipo entero, o quizas yo interprete mal la consigna. Si alguno me podria dar alguna idea me seria de mucha ayuda. Saludos
01-05-2014 18:05
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
sentey Sin conexión
Presidente del CEIT
fressi renunciessi abandonessi
********

Análisis de Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.544
Agradecimientos dados: 128
Agradecimientos: 197 en 137 posts
Registro en: Aug 2010
Mensaje: #12
RE: TP Funcional (Haskell)
Si, tenes razon matiasm , fue un error mío. Supongo que se puede usar alguna funcion para convertirlo a float, la verdad no le di demasiada importancia a esa parte...

-------------


Aprovecho para dejar otra duda que me surgió:


funciones = [(+1),(*2),(+3),(*4)]
valor = 1
--Quiero obtener el resultado de "valor" luego de aplicarle todas las funciones, es decir: ((((1)+1)*2)+3)*4 = 28
--Lo quiero hacer de 2 formas: con recursividad y con fold

aplicar [] valor = valor
aplicar (f:fs) valor = aplicar fs (f valor)


--Main> aplicar funciones valor
--28


--Hasta ahi todo bien, pero, como lo haría con fold???


sentey escribió:Voy a cambiar esta firma el día que Me$$i gane un mundial
(Este mensaje fue modificado por última vez en: 05-05-2014 14:53 por sentey.)
05-05-2014 14:46
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Joseph Sin conexión
Empleado de Fotocopiadora
O_O
**

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 40
Agradecimientos dados: 7
Agradecimientos: 61 en 7 posts
Registro en: Dec 2010
Mensaje: #13
RE: TP Funcional (Haskell)
Alguien pudo hacer el --4a aplicando foldl ??? wall

[Imagen: 04.gif]
18-08-2014 18:08
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
m68540534 Sin conexión
Profesor del Modulo A
3++ || 4--
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 260
Agradecimientos dados: 246
Agradecimientos: 187 en 69 posts
Registro en: Mar 2013
Mensaje: #14
RE: TP Funcional (Haskell)
Tenés que usar al gimnasta como semilla, a la lista de rutinas como la lista, y la función va a ser una lambda que le aplique al segundo argumento (el elemento de la lista) la duración de cada rutina (tiempo total/tamaño de la lista) y el primer argumento (el gimnasta). Algo así como \x y -> y duracion x

Compilado para aprobar la cursada de Matemática Discreta - http://www.utnianos.com.ar/foro/tema-lib...-parciales
18-08-2014 18:51
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Desert69 Sin conexión
Presidente del CEIT
Sin estado :( / "Anarquia...
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 2.396
Agradecimientos dados: 202
Agradecimientos: 297 en 186 posts
Registro en: Jun 2008
Mensaje: #15
RE: TP Funcional (Haskell)
[Imagen: 3342ljm.png]

[Imagen: a2.php]
[Imagen: 971aa6599664453c05cb3e42d58bbc0eo.jpg]
19-08-2014 00:22
Visita su sitio web Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Buscar en el tema
Enviar respuesta 




Usuario(s) navegando en este tema: 1 invitado(s)



    This forum uses Lukasz Tkacz MyBB addons.