<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/koko-eating-bananas/description/">Koko Eating Bananas - LeetCode</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202303/koko_eating_bananas/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202303/koko_eating_bananas/main.fsx</a></p>
<pre><code class="lang-plaintext">open System

let minEatingSpeed (piles: int list) (h: int) : int =
    let check (piles: int[]) bananas h =
        let hours =
            Array.fold (fun acc n -&gt; acc + (int (Math.Ceiling(double n / double bananas)))) 0 piles

        hours &lt;= h

    let rec minEatingSpeed' (piles: int[]) left right =
        if left &gt;= right then
            left
        else
            let mid = left + (right - left) / 2

            if check piles mid h then
                minEatingSpeed' piles left mid
            else
                minEatingSpeed' piles (mid + 1) right

    let piles' = piles |&gt; List.sort |&gt; Array.ofList
    minEatingSpeed' piles' 1 (piles'.[piles'.Length - 1])
</code></pre>


## URL

[Koko Eating Bananas - LeetCode](https://leetcode.com/problems/koko-eating-bananas/description/)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202303/koko\_eating\_bananas/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202303/koko_eating_bananas/main.fsx)

```plaintext
open System

let minEatingSpeed (piles: int list) (h: int) : int =
    let check (piles: int[]) bananas h =
        let hours =
            Array.fold (fun acc n -> acc + (int (Math.Ceiling(double n / double bananas)))) 0 piles

        hours <= h

    let rec minEatingSpeed' (piles: int[]) left right =
        if left >= right then
            left
        else
            let mid = left + (right - left) / 2

            if check piles mid h then
                minEatingSpeed' piles left mid
            else
                minEatingSpeed' piles (mid + 1) right

    let piles' = piles |> List.sort |> Array.ofList
    minEatingSpeed' piles' 1 (piles'.[piles'.Length - 1])
```

LeetCode 875. Koko Eating Bananas in F#

URL

Code