<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/make-the-string-great/description/">https://leetcode.com/problems/make-the-string-great/description/</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202404/make_the_string_great/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202404/make_the_string_great/main.fsx</a>
<pre><code class="lang-fsharp">open System

let makeGood (s: string) : string =
 let rec makeGood' (cs: char list) (acc: char list) =
 match cs with
 | [] -&gt; acc |&gt; List.rev |&gt; String.Concat
 | h :: t -&gt;
 match acc with
 | [] -&gt; makeGood' t (h :: acc)
 | h' :: t' -&gt;
 if h = h' then makeGood' t (h :: acc)
 elif Char.ToLower(h) = Char.ToLower(h') then makeGood' t t'
 else makeGood' t (h :: acc)

 makeGood' (Seq.toList s) []
</code></pre>

## URL

[https://leetcode.com/problems/make-the-string-great/description/](https://leetcode.com/problems/make-the-string-great/description/)

## Code

[https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202404/make\_the\_string\_great/main.fsx](https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202404/make_the_string_great/main.fsx)

```fsharp
open System

let makeGood (s: string) : string =
    let rec makeGood' (cs: char list) (acc: char list) =
        match cs with
        | [] -> acc |> List.rev |> String.Concat
        | h :: t ->
            match acc with
            | [] -> makeGood' t (h :: acc)
            | h' :: t' ->
                if h = h' then makeGood' t (h :: acc)
                elif Char.ToLower(h) = Char.ToLower(h') then makeGood' t t'
                else makeGood' t (h :: acc)

    makeGood' (Seq.toList s) []
```

LeetCode 1544. Make The String Great in F#

URL

Code