<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/convert-bst-to-greater-tree/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/convert-bst-to-greate..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0538/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">type Tree =
    | Leaf
    | Node of int * Tree * Tree

let convertBST (root: Tree) =
    let rec convertBST' (node: Tree) (v: int) : (Tree * int) =
        match node with
        | Leaf -&gt; Leaf, v
        | Node (n, left, right) -&gt;
            let (right', rMax) = convertBST' right v
            let (left', lMax) = convertBST' left (n + rMax)
            Node(n + rMax, left', right'), lMax

    let t, _ = convertBST' root 0
    t
</code></pre>


## URL

https://leetcode.com/problems/convert-bst-to-greater-tree/

## Code

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

```fsharp
type Tree =
    | Leaf
    | Node of int * Tree * Tree

let convertBST (root: Tree) =
    let rec convertBST' (node: Tree) (v: int) : (Tree * int) =
        match node with
        | Leaf -> Leaf, v
        | Node (n, left, right) ->
            let (right', rMax) = convertBST' right v
            let (left', lMax) = convertBST' left (n + rMax)
            Node(n + rMax, left', right'), lMax

    let t, _ = convertBST' root 0
    t
```

LeetCode 538. Convert BST to Greater Tree in F#

URL

Code