<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/redistribute-characters-to-make-all-strings-equal/description/?envType=daily-question&amp;envId=2023-12-30">https://leetcode.com/problems/redistribute-characters-to-make-all-strings-equal/description/?envType=daily-question&amp;envId=2023-12-30</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1897/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1897/main.fsx</a>
<pre><code class="lang-fsharp">let makeEqual (words: string list) : bool =
 let len = List.length words

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

## URL

[https://leetcode.com/problems/redistribute-characters-to-make-all-strings-equal/description/?envType=daily-question&envId=2023-12-30](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](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1897/main.fsx)

```fsharp
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)
```

LeetCode 1897. Redistribute Characters to Make All Strings Equal in F#

URL

Code