Guest User

Untitled

a guest
Jan 21st, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. lookUp :: Char -> [(Char, Char)] -> Char
  2. lookup c []                 = c
  3. lookUp c  ((x,y):xs) | c==x = y
  4.                      | c/=x = lookUp c xs
Add Comment
Please, Sign In to add comment