<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/max-chunks-to-make-sorted/description/?envType=daily-question&amp;envId=2024-12-19">https://leetcode.com/problems/max-chunks-to-make-sorted/description/?envType=daily-question&amp;envId=2024-12-19</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/max_chunks_to_make_sorted/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/max_chunks_to_make_sorted/main.fsx</a>
<pre><code class="lang-fsharp">let maxChunksToSorted (arr: int list) : int =
 let rec maxChunksToSorted' maxWindows right acc =
 match maxWindows with
 | [] -&gt; acc
 | (i, h) :: t -&gt;
 let right = max h right
 let acc = if right &lt;= i then acc + 1 else acc
 maxChunksToSorted' t right acc

 let maxWindows = arr |&gt; List.indexed |&gt; List.map (fun (i, n) -&gt; i, max i n)

 maxChunksToSorted' maxWindows 0 0
</code></pre>

## URL

[https://leetcode.com/problems/max-chunks-to-make-sorted/description/?envType=daily-question&envId=2024-12-19](https://leetcode.com/problems/max-chunks-to-make-sorted/description/?envType=daily-question&envId=2024-12-19)

## Code

[https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/max\_chunks\_to\_make\_sorted/main.fsx](https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/max_chunks_to_make_sorted/main.fsx)

```fsharp
let maxChunksToSorted (arr: int list) : int =
 let rec maxChunksToSorted' maxWindows right acc =
 match maxWindows with
 | [] -> acc
 | (i, h) :: t ->
 let right = max h right
 let acc = if right <= i then acc + 1 else acc
 maxChunksToSorted' t right acc

 let maxWindows = arr |> List.indexed |> List.map (fun (i, n) -> i, max i n)

 maxChunksToSorted' maxWindows 0 0
```

LeetCode 769. Max Chunks To Make Sorted in F#

URL

Code