JuanFdS

zip''::[a]->[b]->[(a,b)]
zip'' = foldr group (\_ -> [])
	where 
		group x f (y:ys)  = (x,y):(f ys)
		group _ _ []  = []

zip'::[a]->[b]->[(a,b)]
zip' l1 = snd.foldl sarasa (l1,[])
	where
		sarasa ([],acum) _ = ([],acum)

JuanFdS

-- TP Paradigmas - Watchmen
-- Alejo Berardino 155498-0

-- El código está escrito en inglés. Trabajo hace años así y es una costumbre difícil
-- de cambiar. De ser necesario puedo traducirlo sin problemas.
-- Por esto también incluí equivalencias al final a los nombres del enunciado en español.

-- Para simplificar la codificación del tp usé un par de packages extra.
-- Control.Lens permite la creación de "lentes" para un registro dado.
-- Una lente contienen getter y setter para una propiedad de ese registro.