<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/path-sum-ii/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/path-sum-ii</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0113/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 pathSum (root: Tree) (targetSum: int) : int list list =
    let rec pathSum' node sum targetSum vals acc =
        match node with
        | Leaf -&gt;
            if sum = targetSum then
                Set.add (vals |&gt; List.rev) acc
            else
                acc
        | Node (v, left, right) -&gt;
            let vals' = v :: vals
            let sum' = v + sum
            let acc' = pathSum' left sum' targetSum vals' acc
            pathSum' right sum' targetSum vals' acc'


    pathSum' root 0 targetSum [] Set.empty
    |&gt; Set.toList
</code></pre>


## URL

https://leetcode.com/problems/path-sum-ii/

## Code

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

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

let pathSum (root: Tree) (targetSum: int) : int list list =
    let rec pathSum' node sum targetSum vals acc =
        match node with
        | Leaf ->
            if sum = targetSum then
                Set.add (vals |> List.rev) acc
            else
                acc
        | Node (v, left, right) ->
            let vals' = v :: vals
            let sum' = v + sum
            let acc' = pathSum' left sum' targetSum vals' acc
            pathSum' right sum' targetSum vals' acc'


    pathSum' root 0 targetSum [] Set.empty
    |> Set.toList
```

LeetCode 113. Path Sum II in F#

URL

Code