<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/maximum-bags-with-full-capacity-of-rocks/description/">Maximum Bags With Full Capacity of Rocks - LeetCode</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/2279/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/2279/main.fsx</a></p>
<pre><code class="lang-plaintext">let maximumBags (capacity: int list) (rocks: int list) (additionalRocks: int) : int =
    let rec maximumBags' diffs additionalRocks acc =
        match diffs with
        | [] -&gt; acc
        | h :: t -&gt;
            if h &lt;= additionalRocks then
                maximumBags' t (additionalRocks - h) (acc + 1)
            else
                acc

    let diffs = List.zip capacity rocks |&gt; List.map (fun (a, b) -&gt; a - b)
    maximumBags' diffs additionalRocks 0
</code></pre>


## URL

[Maximum Bags With Full Capacity of Rocks - LeetCode](https://leetcode.com/problems/maximum-bags-with-full-capacity-of-rocks/description/)

## Code

[https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/2279/main.fsx](https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/2279/main.fsx)

```plaintext
let maximumBags (capacity: int list) (rocks: int list) (additionalRocks: int) : int =
    let rec maximumBags' diffs additionalRocks acc =
        match diffs with
        | [] -> acc
        | h :: t ->
            if h <= additionalRocks then
                maximumBags' t (additionalRocks - h) (acc + 1)
            else
                acc

    let diffs = List.zip capacity rocks |> List.map (fun (a, b) -> a - b)
    maximumBags' diffs additionalRocks 0
```

Shohei Yoshida's Blog

Shohei Yoshida's Blog

Leet Code 2279. Maximum Bags With Full Capacity of Rocks in F#

URL

Code