<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/successful-pairs-of-spells-and-potions/description/">https://leetcode.com/problems/successful-pairs-of-spells-and-potions/description/</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/2300/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/2300/main.fsx</a></p>
<pre><code class="lang-plaintext">let successfulPairs (spells: int list) (potions: int list) (success: int) : int list =
    let rec lowerBound spell (potions: int []) left right success =
        if left &gt; right then
            left
        else
            let mid = left + (right - left) / 2
            let v = spell * potions.[mid]

            if v &lt; success then
                lowerBound spell potions (mid + 1) right success
            else
                lowerBound spell potions left (mid - 1) success

    let rec successfulPairs' spells (potions: int []) success acc =
        match spells with
        | [] -&gt; List.rev acc
        | h :: t -&gt;
            let right = potions.Length - 1
            let pos = lowerBound h potions 0 right success
            let acc' = (potions.Length - pos) :: acc
            successfulPairs' t potions success acc'

    let potions' = List.sort potions |&gt; List.toArray
    successfulPairs' spells potions' success []
</code></pre>


## URL

[https://leetcode.com/problems/successful-pairs-of-spells-and-potions/description/](https://leetcode.com/problems/successful-pairs-of-spells-and-potions/description/)

## Code

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

```plaintext
let successfulPairs (spells: int list) (potions: int list) (success: int) : int list =
    let rec lowerBound spell (potions: int []) left right success =
        if left > right then
            left
        else
            let mid = left + (right - left) / 2
            let v = spell * potions.[mid]

            if v < success then
                lowerBound spell potions (mid + 1) right success
            else
                lowerBound spell potions left (mid - 1) success

    let rec successfulPairs' spells (potions: int []) success acc =
        match spells with
        | [] -> List.rev acc
        | h :: t ->
            let right = potions.Length - 1
            let pos = lowerBound h potions 0 right success
            let acc' = (potions.Length - pos) :: acc
            successfulPairs' t potions success acc'

    let potions' = List.sort potions |> List.toArray
    successfulPairs' spells potions' success []
```

LeetCode 2300. Successful Pairs of Spells and Potions in F#

URL

Code