lookup
lookup key assocs looks up a key in an association list.
Looks up the value of a key in the hash table.
O(min(n,W)). Lookup the value at a key in the map. See also lookup.
O(log n). Lookup the value at a key in the map.
The function will return the corresponding value as (Just value), or Nothing if the key isn't in the map.
An example of using lookup:
> import Prelude hiding (lookup)
> import Data.Map
>
> employeeDept = fromList([("John","Sales"), ("Bob","IT")])
> deptCountry = fromList([("IT","USA"), ("Sales","France")])
> countryCurrency = fromList([("USA", "Dollar"), ("France", "Euro")])
>
> employeeCurrency :: String -> Maybe String
> employeeCurrency name = do
> dept <- lookup name employeeDept
> country <- lookup dept deptCountry
> lookup country countryCurrency
>
> main = do
> putStrLn $ "John's currency: " ++ (show (employeeCurrency "John"))
> putStrLn $ "Pete's currency: " ++ (show (employeeCurrency "Pete"))
The output of this program:
> John's currency: Just "Euro"
> Pete's currency: Nothing
O(log n). Find smallest element greater or equal to the given one.
> lookupGE 3 (fromList [3, 5]) == Just 3
> lookupGE 4 (fromList [3, 5]) == Just 5
> lookupGE 6 (fromList [3, 5]) == Nothing
O(log n). Find smallest key greater or equal to the given one and return the corresponding (key, value) pair.
> lookupGE 3 (fromList [(3,'a'), (5,'b')]) == Just (3, 'a')
> lookupGE 4 (fromList [(3,'a'), (5,'b')]) == Just (5, 'b')
> lookupGE 6 (fromList [(3,'a'), (5,'b')]) == Nothing
O(log n). Find smallest element greater or equal to the given one.
> lookupGE 3 (fromList [3, 5]) == Just 3
> lookupGE 4 (fromList [3, 5]) == Just 5
> lookupGE 6 (fromList [3, 5]) == Nothing
O(log n). Find smallest key greater or equal to the given one and return the corresponding (key, value) pair.
> lookupGE 3 (fromList [(3,'a'), (5,'b')]) == Just (3, 'a')
> lookupGE 4 (fromList [(3,'a'), (5,'b')]) == Just (5, 'b')
> lookupGE 6 (fromList [(3,'a'), (5,'b')]) == Nothing
O(log n). Find smallest element greater than the given one.
> lookupGT 4 (fromList [3, 5]) == Just 5
> lookupGT 5 (fromList [3, 5]) == Nothing
O(log n). Find smallest key greater than the given one and return the corresponding (key, value) pair.
> lookupGT 4 (fromList [(3,'a'), (5,'b')]) == Just (5, 'b')
> lookupGT 5 (fromList [(3,'a'), (5,'b')]) == Nothing
O(log n). Find smallest element greater than the given one.
> lookupGT 4 (fromList [3, 5]) == Just 5
> lookupGT 5 (fromList [3, 5]) == Nothing
O(log n). Find smallest key greater than the given one and return the corresponding (key, value) pair.
> lookupGT 4 (fromList [(3,'a'), (5,'b')]) == Just (5, 'b')
> lookupGT 5 (fromList [(3,'a'), (5,'b')]) == Nothing
lookupHeader hdr hdrs locates the first header matching hdr in the list hdrs.
O(log n). Lookup the index of a key. The index is a number from 0 up to, but not including, the size of the map.
> isJust (lookupIndex 2 (fromList [(5,"a"), (3,"b")])) == False
> fromJust (lookupIndex 3 (fromList [(5,"a"), (3,"b")])) == 0
> fromJust (lookupIndex 5 (fromList [(5,"a"), (3,"b")])) == 1
> isJust (lookupIndex 6 (fromList [(5,"a"), (3,"b")])) == False
O(log n). Find largest element smaller or equal to the given one.
> lookupLE 2 (fromList [3, 5]) == Nothing
> lookupLE 4 (fromList [3, 5]) == Just 3
> lookupLE 5 (fromList [3, 5]) == Just 5
O(log n). Find largest key smaller or equal to the given one and return the corresponding (key, value) pair.
> lookupLE 2 (fromList [(3,'a'), (5,'b')]) == Nothing
> lookupLE 4 (fromList [(3,'a'), (5,'b')]) == Just (3, 'a')
> lookupLE 5 (fromList [(3,'a'), (5,'b')]) == Just (5, 'b')
O(log n). Find largest element smaller or equal to the given one.
> lookupLE 2 (fromList [3, 5]) == Nothing
> lookupLE 4 (fromList [3, 5]) == Just 3
> lookupLE 5 (fromList [3, 5]) == Just 5
O(log n). Find largest key smaller or equal to the given one and return the corresponding (key, value) pair.
> lookupLE 2 (fromList [(3,'a'), (5,'b')]) == Nothing
> lookupLE 4 (fromList [(3,'a'), (5,'b')]) == Just (3, 'a')
> lookupLE 5 (fromList [(3,'a'), (5,'b')]) == Just (5, 'b')
O(log n). Find largest element smaller than the given one.
> lookupLT 3 (fromList [3, 5]) == Nothing
> lookupLT 5 (fromList [3, 5]) == Just 3
O(log n). Find largest key smaller than the given one and return the corresponding (key, value) pair.
> lookupLT 3 (fromList [(3,'a'), (5,'b')]) == Nothing
> lookupLT 4 (fromList [(3,'a'), (5,'b')]) == Just (3, 'a')
O(log n). Find largest element smaller than the given one.
> lookupLT 3 (fromList [3, 5]) == Nothing
> lookupLT 5 (fromList [3, 5]) == Just 3
O(log n). Find largest key smaller than the given one and return the corresponding (key, value) pair.
> lookupLT 3 (fromList [(3,'a'), (5,'b')]) == Nothing
> lookupLT 4 (fromList [(3,'a'), (5,'b')]) == Just (3, 'a')
O(min(n,W)). The expression (insertLookupWithKey f k x map) is a pair (lookup k map) and the second element equal to (insertWithKey f k x map).
> let f key new_value old_value = (show key) ++ ":" ++ new_value ++ "|" ++ old_value
> insertLookupWithKey f 5 "xxx" (fromList [(5,"a"), (3,"b")]) == (Just "a", fromList [(3, "b"), (5, "5:xxx|a")])
> insertLookupWithKey f 7 "xxx" (fromList [(5,"a"), (3,"b")]) == (Nothing, fromList [(3, "b"), (5, "a"), (7, "xxx")])
> insertLookupWithKey f 5 "xxx" empty == (Nothing, singleton 5 "xxx")
This is how to define insertLookup using insertLookupWithKey:
> let insertLookup kx x t = insertLookupWithKey (\_ a _ -> a) kx x t
> insertLookup 5 "x" (fromList [(5,"a"), (3,"b")]) == (Just "a", fromList [(3, "b"), (5, "x")])
> insertLookup 7 "x" (fromList [(5,"a"), (3,"b")]) == (Nothing, fromList [(3, "b"), (5, "a"), (7, "x")])
O(log n). Combines insert operation with old value retrieval. The expression (insertLookupWithKey f k x map) is a pair map</tt>) and the second element equal to (insertWithKey f k x map).
> let f key new_value old_value = (show key) ++ ":" ++ new_value ++ "|" ++ old_value
> insertLookupWithKey f 5 "xxx" (fromList [(5,"a"), (3,"b")]) == (Just "a", fromList [(3, "b"), (5, "5:xxx|a")])
> insertLookupWithKey f 7 "xxx" (fromList [(5,"a"), (3,"b")]) == (Nothing, fromList [(3, "b"), (5, "a"), (7, "xxx")])
> insertLookupWithKey f 5 "xxx" empty == (Nothing, singleton 5 "xxx")
This is how to define insertLookup using insertLookupWithKey:
> let insertLookup kx x t = insertLookupWithKey (\_ a _ -> a) kx x t
> insertLookup 5 "x" (fromList [(5,"a"), (3,"b")]) == (Just "a", fromList [(3, "b"), (5, "x")])
> insertLookup 7 "x" (fromList [(5,"a"), (3,"b")]) == (Nothing, fromList [(3, "b"), (5, "a"), (7, "x")])
O(min(n,W)). Performs a split but also returns whether the pivot key was found in the original map.
> splitLookup 2 (fromList [(5,"a"), (3,"b")]) == (empty, Nothing, fromList [(3,"b"), (5,"a")])
> splitLookup 3 (fromList [(5,"a"), (3,"b")]) == (empty, Just "b", singleton 5 "a")
> splitLookup 4 (fromList [(5,"a"), (3,"b")]) == (singleton 3 "b", Nothing, singleton 5 "a")
> splitLookup 5 (fromList [(5,"a"), (3,"b")]) == (singleton 3 "b", Just "a", empty)
> splitLookup 6 (fromList [(5,"a"), (3,"b")]) == (fromList [(3,"b"), (5,"a")], Nothing, empty)
O(log n). The expression (splitLookup k map) splits a map just like split but also returns lookup k map.
> splitLookup 2 (fromList [(5,"a"), (3,"b")]) == (empty, Nothing, fromList [(3,"b"), (5,"a")])
> splitLookup 3 (fromList [(5,"a"), (3,"b")]) == (empty, Just "b", singleton 5 "a")
> splitLookup 4 (fromList [(5,"a"), (3,"b")]) == (singleton 3 "b", Nothing, singleton 5 "a")
> splitLookup 5 (fromList [(5,"a"), (3,"b")]) == (singleton 3 "b", Just "a", empty)
> splitLookup 6 (fromList [(5,"a"), (3,"b")]) == (fromList [(3,"b"), (5,"a")], Nothing, empty)
O(min(n,W)). Lookup and update. The function returns original value, if it is updated. This is different behavior than updateLookupWithKey. Returns the original key value if the map entry is deleted.
> let f k x = if x == "a" then Just ((show k) ++ ":new a") else Nothing
> updateLookupWithKey f 5 (fromList [(5,"a"), (3,"b")]) == (Just "a", fromList [(3, "b"), (5, "5:new a")])
> updateLookupWithKey f 7 (fromList [(5,"a"), (3,"b")]) == (Nothing, fromList [(3, "b"), (5, "a")])
> updateLookupWithKey f 3 (fromList [(5,"a"), (3,"b")]) == (Just "b", singleton 5 "a")
O(log n). Lookup and update. See also updateWithKey. The function returns changed value, if it is updated. Returns the original key value if the map entry is deleted.
> let f k x = if x == "a" then Just ((show k) ++ ":new a") else Nothing
> updateLookupWithKey f 5 (fromList [(5,"a"), (3,"b")]) == (Just "5:new a", fromList [(3, "b"), (5, "5:new a")])
> updateLookupWithKey f 7 (fromList [(5,"a"), (3,"b")]) == (Nothing, fromList [(3, "b"), (5, "a")])
> updateLookupWithKey f 3 (fromList [(5,"a"), (3,"b")]) == (Just "b", singleton 5 "a")