<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/bag-of-tokens/description/">https://leetcode.com/problems/bag-of-tokens/description/</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202403/bag_of_tokens/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202403/bag_of_tokens/main.fsx</a>
<pre><code class="lang-fsharp">open System

let bagOfTokensScore (tokens: int list) (power: int) : int =
 let rec bagOfTokensScore' left right (tokens: int[]) power score ret =
 if left &gt; right then
 ret
 else if power &gt;= tokens.[left] then
 bagOfTokensScore' (left + 1) right tokens (power - tokens.[left]) (score + 1) (Math.Max(ret, score + 1))
 elif score &gt;= 1 then
 bagOfTokensScore' left (right - 1) tokens (power + tokens.[right]) (score - 1) ret
 else
 ret

 let tokens' = tokens |&gt; List.sort |&gt; List.toArray
 bagOfTokensScore' 0 (tokens'.Length - 1) tokens' power 0 0
</code></pre>

## URL

[https://leetcode.com/problems/bag-of-tokens/description/](https://leetcode.com/problems/bag-of-tokens/description/)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202403/bag\_of\_tokens/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202403/bag_of_tokens/main.fsx)

```fsharp
open System

let bagOfTokensScore (tokens: int list) (power: int) : int =
    let rec bagOfTokensScore' left right (tokens: int[]) power score ret =
        if left > right then
            ret
        else if power >= tokens.[left] then
            bagOfTokensScore' (left + 1) right tokens (power - tokens.[left]) (score + 1) (Math.Max(ret, score + 1))
        elif score >= 1 then
            bagOfTokensScore' left (right - 1) tokens (power + tokens.[right]) (score - 1) ret
        else
            ret

    let tokens' = tokens |> List.sort |> List.toArray
    bagOfTokensScore' 0 (tokens'.Length - 1) tokens' power 0 0
```

LeetCode 948. Bag of Tokens in F#

URL

Code