URL

https://leetcode.com/problems/redistribute-characters-to-make-all-strings-equal/description/?envType=daily-question&envId=2023-12-30

Code

https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1897/main.fsx

let makeEqual (words: string list) : bool =
    let len = List.length words

    words
    |> List.fold
        (fun acc word ->
            word
            |> Seq.fold
                (fun acc c ->
                    match Map.tryFind c acc with
                    | Some(v) -> Map.add c (v + 1) acc
                    | None -> Map.add c 1 acc)
                acc)
        Map.empty
    |> Map.forall (fun _ v -> v % len = 0)