<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/delete-characters-to-make-fancy-string/description/?envType=daily-question&amp;envId=2024-11-01">Delete Characters to Make Fancy String - LeetCode</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202411/delete_characters_to_make_fancy_string/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202411/delete_characters_to_make_fancy_string/main.fsx</a>
<pre><code class="lang-fsharp">open System

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

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

## URL

[Delete Characters to Make Fancy String - LeetCode](https://leetcode.com/problems/delete-characters-to-make-fancy-string/description/?envType=daily-question&envId=2024-11-01)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202411/delete\_characters\_to\_make\_fancy\_string/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202411/delete_characters_to_make_fancy_string/main.fsx)

```fsharp
open System

let makeFancyString (s: string) : string =
    let rec makeFancyString' cs prev1 prev2 (acc: char list) =
        match cs with
        | [] -> List.rev acc |> String.Concat
        | h :: t ->
            if h = prev1 && h = prev2 then
                makeFancyString' t h prev1 acc
            else
                makeFancyString' t h prev1 (h :: acc)

    makeFancyString' (Seq.toList s) '?' '?' []
```

LeetCode 1957. Delete Characters to Make Fancy String in F#

URL

Code