findkey

2016-09-19 本文已影响0人 zzzzzzzgk

findKey :: (Eq k) => k -> [(k,v)] -> Maybe v  
findKey key = foldr (\(k,v) acc -> if key == k then Just v else acc) Nothing