Skip to content

Instantly share code, notes, and snippets.

@Fasand

Fasand/tut2 ex4

Created October 9, 2016 14:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save Fasand/45997388e9156b641976152e88ef6d3b to your computer and use it in GitHub Desktop.
Save Fasand/45997388e9156b641976152e88ef6d3b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
tut2 ex4
lookUp :: Char -> [(Char, Char)] -> Char
lookUp c [] = c
lookUp c charset = if not (null y) then head y else c
where y = [b | (a,b) <- charset, a == c]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment