View difference between Paste ID: T0zFQB85 and 3CxXTagJ

 A2)a)
 
 mapList :: (Int -> Int) -> List -> List
 mapList _ [] = []
-mapList f (x:xs) = f x : map f xs
+mapList f (x:xs) = f x : mapList f xs