aardvarrk · November 25, 2012 21:53
diff --git a/gistfile1.hs b/gistfile1.hs
 map' :: (Int -> a -> b) -> [a] -> [b]
 map' = map'' 0
    where map'' :: Int -> (Int -> a -> b) -> [a] -> [b]
          map'' _ _ [] = []
          map'' i f (x:xs) = (f i x) : map'' (succ i) f xs
	map' :: (Int -> a -> b) -> [a] -> [b]
	map' = map'' 0
	where map'' :: Int -> (Int -> a -> b) -> [a] -> [b]
	map'' _ _ [] = []
	map'' i f (x:xs) = (f i x) : map'' (succ i) f xs
No results found