<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/minimum-string-length-after-removing-substrings/description/">Minimum String Length After Removing Substrings - LeetCode</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/2696/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/2696/main.fsx</a></p>
<pre><code class="lang-plaintext">let minLength (s: string) : int =
    let rec minLength' cs ok acc =
        match cs with
        | [] -&gt;
            if ok then
                List.length acc
            else
                minLength' (List.rev acc) true []
        | c :: [] -&gt; minLength' [] ok (c :: acc)
        | c1 :: c2 :: t -&gt;
            if (c1 = 'A' &amp;&amp; c2 = 'B') || (c1 = 'C' &amp;&amp; c2 = 'D') then
                minLength' t false acc
            else
                minLength' (c2 :: t) ok (c1 :: acc)

    minLength' (s |&gt; Seq.toList) true []
</code></pre>


## URL

[Minimum String Length After Removing Substrings - LeetCode](https://leetcode.com/problems/minimum-string-length-after-removing-substrings/description/)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/2696/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/2696/main.fsx)

```plaintext
let minLength (s: string) : int =
    let rec minLength' cs ok acc =
        match cs with
        | [] ->
            if ok then
                List.length acc
            else
                minLength' (List.rev acc) true []
        | c :: [] -> minLength' [] ok (c :: acc)
        | c1 :: c2 :: t ->
            if (c1 = 'A' && c2 = 'B') || (c1 = 'C' && c2 = 'D') then
                minLength' t false acc
            else
                minLength' (c2 :: t) ok (c1 :: acc)

    minLength' (s |> Seq.toList) true []
```

LeetCode 2696. Minimum String Length After Removing Substrings in F#

URL

Code