oktay-sen · October 9, 2016 14:58
diff --git a/tut2 ex4.hs b/tut2 ex4.hs
 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]
	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]