Oktay Sen oktay-sen
oktay-sen
/ tut2 ex4.hs
Created
October 9, 2016 14:58
— forked from qaisjp/tut2 ex4.hs
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| lookUp :: Char -> [(Char, Char)] -> Char | |
| lookUp needle xs = if (null selected) then needle else snd $ selected !! 0 | |
| where | |
| selected = [x | x <- xs, fst x == needle] |