<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/middle-of-the-linked-list/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/middle-of-the-linked-..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0876/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">type List =
    | Leaf
    | Node of int * List

let middleNode (head: List) : List =
    let rec middleNode' node n =
        match node with
        | Leaf -&gt; None, n
        | Node(_, next) -&gt;
            let node', len = middleNode' next (n + 1)

            match node' with
            | Some(_) -&gt; node', len
            | None -&gt; if n = len / 2 then Some(node), len else None, len

    middleNode' head 0 |&gt; fst |&gt; Option.get
</code></pre>


## URL

https://leetcode.com/problems/middle-of-the-linked-list/

## Code

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

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

let middleNode (head: List) : List =
    let rec middleNode' node n =
        match node with
        | Leaf -> None, n
        | Node(_, next) ->
            let node', len = middleNode' next (n + 1)

            match node' with
            | Some(_) -> node', len
            | None -> if n = len / 2 then Some(node), len else None, len

    middleNode' head 0 |> fst |> Option.get
```

LeetCode 876. Middle of the Linked List in F#

URL

Code