lykkin · February 15, 2015 18:47
diff --git a/gistfile1.hs b/gistfile1.hs
 mapz f (x:xs) = (f x):(mapz f xs)
 mapz f [] = []

 mapa f li = let mapacc f (x:xs) acc = mapacc f xs ((f x):acc)
                mapacc f [] acc = acc
            in
                (reverse (mapacc f li []))
	mapz f (x:xs) = (f x):(mapz f xs)
	mapz f [] = []

	mapa f li = let mapacc f (x:xs) acc = mapacc f xs ((f x):acc)
	mapacc f [] acc = acc
	in
	(reverse (mapacc f li []))