<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/short-encoding-of-words/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/short-encoding-of-words</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0820/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">open System

let minimumLengthEncoding (words: string list) : int =
    let rec substrs (cs: char list) acc =
        match cs with
        | [] -&gt; acc
        | _ :: t -&gt;
            let str = cs |&gt; String.Concat
            substrs t (str :: acc)

    let rec removeSubstrs (words: string list) s =
        match words with
        | [] -&gt; s
        | h :: t -&gt;
            let strs = substrs (h |&gt; Seq.toList |&gt; List.tail) []

            let s' =
                strs
                |&gt; List.fold (fun acc s -&gt; Set.remove s acc) s

            removeSubstrs t s'

    let s = words |&gt; Set.ofList
    let s' = removeSubstrs words s
    s' |&gt; Set.fold (fun acc s -&gt; acc + s.Length + 1) 0
</code></pre>


## URL

https://leetcode.com/problems/short-encoding-of-words/

## Code

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

```fsharp
open System

let minimumLengthEncoding (words: string list) : int =
    let rec substrs (cs: char list) acc =
        match cs with
        | [] -> acc
        | _ :: t ->
            let str = cs |> String.Concat
            substrs t (str :: acc)

    let rec removeSubstrs (words: string list) s =
        match words with
        | [] -> s
        | h :: t ->
            let strs = substrs (h |> Seq.toList |> List.tail) []

            let s' =
                strs
                |> List.fold (fun acc s -> Set.remove s acc) s

            removeSubstrs t s'

    let s = words |> Set.ofList
    let s' = removeSubstrs words s
    s' |> Set.fold (fun acc s -> acc + s.Length + 1) 0
```

LeetCode 820. Short Encoding of Words in F#

URL

Code