Edición de «Práctica 1 (Paradigmas)»
De Cuba-Wiki
Puedes deshacer la edición. Antes de deshacer la edición, comprueba la siguiente comparación para verificar que realmente es lo que quieres hacer, y entonces publica los cambios para así efectuar la reversión.
Revisión actual | Tu texto | ||
Línea 93: | Línea 93: | ||
filter2 :: (a -> Bool) -> [a] -> [a] | filter2 :: (a -> Bool) -> [a] -> [a] | ||
filter2 f xs = foldr (\x -> concat_if (f x) x) [] xs | filter2 f xs = foldr (\x -> concat_if (f x) x) [] xs | ||
where concat_if f = if f then (:) else (\_ -> | where concat_if f = if f then (:) else (\_ -> \xs -> xs) | ||
map2 :: (a -> b) -> [a] -> [b] | map2 :: (a -> b) -> [a] -> [b] |