<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/maximum-ice-cream-bars/">Maximum Ice Cream Bars - 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/1833/main.fsx">dotnet-study/main.fsx at master · syohex/dotnet-study · GitHub</a></p>
<pre><code class="lang-plaintext">let maxIceCream (costs: int list) (coins: int) : int =
    let rec maxIceCream' i sum costs coins =
        match costs with
        | [] -&gt; i
        | h :: t -&gt;
            let sum' = sum + h

            if sum' &gt; coins then
                i
            else
                maxIceCream' (i + 1) sum' t coins

    maxIceCream' 0 0 (costs |&gt; List.sort) coins
</code></pre>


## URL

[Maximum Ice Cream Bars - LeetCode](https://leetcode.com/problems/maximum-ice-cream-bars/)

## Code

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

```plaintext
let maxIceCream (costs: int list) (coins: int) : int =
    let rec maxIceCream' i sum costs coins =
        match costs with
        | [] -> i
        | h :: t ->
            let sum' = sum + h

            if sum' > coins then
                i
            else
                maxIceCream' (i + 1) sum' t coins

    maxIceCream' 0 0 (costs |> List.sort) coins
```

LeetCode 1833. Maximum Ice Cream Bars in F#

URL

Code