MapExt.fs

let rec containsAllKeysRec (keys: string list)(map: Map<string, string>) : bool =
    let rec found k (m: Map<_,_>) =
        match k with
        | [x] -> if m.ContainsKey x then true else false
        | x::xs -> found xs m
        | _ -> true
    found keys map

let containsAllKeys (keys: string list)(map: Map<string, string>) : bool =
    let mutable missing = false
    for key in keys do
        if map.ContainsKey key |> not then do
            missing <- true
    missing |> not

let containsAllKeysBuiltIn (keys: string list)(map: Map<string, string>) : bool =
    keys
    |> List.exists (fun key -> map.ContainsKey key |> not)
    |> not