<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/make-the-string-great/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/make-the-string-great</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/1544/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let makeGood (s: string) : string =
    let rec makeGood' cs (acc: char list) =
        match cs with
        | [] -&gt; acc |&gt; List.rev |&gt; System.String.Concat
        | h :: t -&gt;
            match acc with
            | [] -&gt; makeGood' t (h :: acc)
            | prev :: rest -&gt;
                if (System.Char.IsLower(h)
                    &amp;&amp; prev = System.Char.ToUpper(h))
                   || (System.Char.IsUpper(h)
                       &amp;&amp; prev = System.Char.ToLower(h)) then
                    makeGood' t rest
                else
                    makeGood' t (h :: acc)

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


## URL

https://leetcode.com/problems/make-the-string-great/

## Code

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

```fsharp
let makeGood (s: string) : string =
    let rec makeGood' cs (acc: char list) =
        match cs with
        | [] -> acc |> List.rev |> System.String.Concat
        | h :: t ->
            match acc with
            | [] -> makeGood' t (h :: acc)
            | prev :: rest ->
                if (System.Char.IsLower(h)
                    && prev = System.Char.ToUpper(h))
                   || (System.Char.IsUpper(h)
                       && prev = System.Char.ToLower(h)) then
                    makeGood' t rest
                else
                    makeGood' t (h :: acc)

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

LeetCode 1544. Make The String Great in F#

URL

Code