к
Size: a a a
AV
к
g keys makeMap = do
map <- makeMap (toList keys)
for keys \key -> do
pure (key, Map.lookup key map)к
f t g = do
let x = toList t
z <- g x
pure $ t & \i -> (i, z ?! i)
AV
AV
VZ
f :: (Traversable t) => t a -> ([a] -> IO (Map a c)]) -> IO (t (a,Maybe c))
AV
VZ
AV
AV
JS
readMaybe?