<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/reverse-substrings-between-each-pair-of-parentheses/description/?envType=daily-question&amp;envId=2024-07-11">Reverse Substrings Between Each Pair of Parentheses - LeetCode</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202407/reverse_substrings_between_each_pair_of_parentheses/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202407/reverse_substrings_between_each_pair_of_parentheses/main.fsx</a>
<pre><code class="lang-fsharp">open System

let reverseParentheses (s: string) : string =
 let rec reverseParentheses' (cs: char list) acc =
 match cs with
 | [] -&gt; List.rev acc, []
 | h :: t -&gt;
 match h with
 | '(' -&gt;
 let v, rest = reverseParentheses' t []
 reverseParentheses' rest (v @ acc)
 | ')' -&gt; List.rev acc, t
 | c -&gt; reverseParentheses' t (c :: acc)

 reverseParentheses' (Seq.toList s) [] |&gt; fst |&gt; String.Concat
</code></pre>

## URL

[Reverse Substrings Between Each Pair of Parentheses - LeetCode](https://leetcode.com/problems/reverse-substrings-between-each-pair-of-parentheses/description/?envType=daily-question&envId=2024-07-11)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202407/reverse\_substrings\_between\_each\_pair\_of\_parentheses/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202407/reverse_substrings_between_each_pair_of_parentheses/main.fsx)

```fsharp
open System

let reverseParentheses (s: string) : string =
    let rec reverseParentheses' (cs: char list) acc =
        match cs with
        | [] -> List.rev acc, []
        | h :: t ->
            match h with
            | '(' ->
                let v, rest = reverseParentheses' t []
                reverseParentheses' rest (v @ acc)
            | ')' -> List.rev acc, t
            | c -> reverseParentheses' t (c :: acc)

    reverseParentheses' (Seq.toList s) [] |> fst |> String.Concat
```

LeetCode 1190. Reverse Substrings Between Each Pair of Parentheses in F#

URL

Code