462 views
# PLP | Practica 1 Ejercicio 1 ## 1. - `max2:: (Float, Float) ->` - `normaVectorial(x,y) = sqrt(x²+y²)` - `normaVectorial :: (Float, Float) -> Float` - `Subract :: Float -> Float -> Float` - `Flip :: (a -> b -> c) -> b -> a -> c` - `predecesor = subtract 1` - `evaluarEnCero :: ((Float -> Float) -> Float)` - `dosVeces :: ((Float -> Float) -> (Float -> Float))` - $\Uparrow$ preguntar ## 2. ```haskell= max2curry :: Float -> Float -> Float max2curry x = \y -> if x > y then x else y normaVectorialCurry :: Float -> Float -> Float normaVectorialCurry x = \y -> sqrt(x^2 + y^2) currycurry :: ((a,b) -> c ) -> a -> b -> c currycurry f = \x -> \y -> f (x,y) ```