<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/maximum-units-on-a-truck/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/maximum-units-on-a-tr..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/1710/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let maximumUnits (boxTypes: (int * int) list) (truckSize: int) : int =
    let rec maximumUnits' boxTypes truckSize acc =
        if truckSize = 0 then
            acc
        else
            match boxTypes with
            | [] -&gt; acc
            | (num, units) :: t -&gt;
                let count = System.Math.Min(truckSize, num)
                maximumUnits' t (truckSize - count) (acc + (units * count))

    let boxTypes' =
        boxTypes
        |&gt; List.sortWith (fun (_, unit1) (_, unit2) -&gt; compare unit2 unit1)

    maximumUnits' boxTypes' truckSize 0
</code></pre>


## URL

https://leetcode.com/problems/maximum-units-on-a-truck/

## Code

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

```fsharp
let maximumUnits (boxTypes: (int * int) list) (truckSize: int) : int =
    let rec maximumUnits' boxTypes truckSize acc =
        if truckSize = 0 then
            acc
        else
            match boxTypes with
            | [] -> acc
            | (num, units) :: t ->
                let count = System.Math.Min(truckSize, num)
                maximumUnits' t (truckSize - count) (acc + (units * count))

    let boxTypes' =
        boxTypes
        |> List.sortWith (fun (_, unit1) (_, unit2) -> compare unit2 unit1)

    maximumUnits' boxTypes' truckSize 0
```

LeetCode 1710. Maximum Units on a Truck in F#

URL

Code