<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/reverse-prefix-of-word/description/?envType=daily-question&amp;envId=2024-05-01">Reverse Prefix of Word - LeetCode</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202404/reverse_prefix_of_word/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202404/reverse_prefix_of_word/main.fsx</a>
<pre><code class="lang-fsharp">open System

let reversePrefix (word: string) (ch: char) : string =
 let rec reversePrefix' (cs: char list) ch acc =
 match cs with
 | [] -&gt; word
 | h :: t -&gt;
 if h = ch then
 (h :: acc) @ t |&gt; String.Concat
 else
 reversePrefix' t ch (h :: acc)

 reversePrefix' (Seq.toList word) ch []
</code></pre>

## URL

[Reverse Prefix of Word - LeetCode](https://leetcode.com/problems/reverse-prefix-of-word/description/?envType=daily-question&envId=2024-05-01)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202404/reverse\_prefix\_of\_word/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202404/reverse_prefix_of_word/main.fsx)

```fsharp
open System

let reversePrefix (word: string) (ch: char) : string =
    let rec reversePrefix' (cs: char list) ch acc =
        match cs with
        | [] -> word
        | h :: t ->
            if h = ch then
                (h :: acc) @ t |> String.Concat
            else
                reversePrefix' t ch (h :: acc)

    reversePrefix' (Seq.toList word) ch []
```

LeetCode 2000. Reverse Prefix of Word in F#

URL

Code