Guest User

Untitled

a guest
Jun 12th, 2018
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. A2)a)
  2.  
  3. mapList :: (Int -> Int) -> List -> List
  4. mapList _ [] = []
  5. mapList f (x:xs) = f x : maplist f xs
  6.  
  7. b)
  8. negateList :: List -> List
  9. neagteList mapList (\x = x - 1) xs
Add Comment
Please, Sign In to add comment