Ejemplos de uso de expresiones lambda

lambda.hs

-- Ejemplos de expresiones lambda

sumar1 :: Num a => a -> a
sumar1 x = x + 1

sumar1ConLambda :: Num a => a -> a
sumar1ConLambda = \x -> x + 1

noUsoArgs :: a -> b -> c -> Integer
noUsoArgs = \x y z -> 2 -- (\x y z -> 2) Devuelve 2 para toda combinacion de parametros.

agregarCorchetes :: String -> String
agregarCorchetes s = "[" ++ s ++ "]"

f :: Integer -> String
f = agregarCorchetes . show . (+1)

fLambda :: Integer -> String
fLambda = (\s -> "[" ++ s ++ "]") . (\x -> show (x + 1))

fLambda2 :: Integer -> String
fLambda2 = agregarCorchetes . (\x -> (show . (+1)) x)

aplicarTodas :: b -> [(b -> b)] -> b
aplicarTodas e lista = foldl (\x f -> f x) e lista

-- Ejemplo de aplicacion: aplicarTodas 1 [(\x -> x + 1), (\x -> x * 2), (\x -> x * x)]