<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/maximum-points-you-can-obtain-from-cards/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/maximum-points-you-ca..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/1423/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">open System

let maxScore (cardPoints: int list) (k: int) : int =
    let rec maxScore' cards revCards sum (ret: int) =
        match cards, revCards with
        | [], [] -&gt; ret
        | [], _
        | _, [] -&gt; failwith "never reach here"
        | h1 :: t1, h2 :: t2 -&gt;
            let sum' = sum + h1 - h2
            maxScore' t1 t2 sum' (Math.Max(ret, sum'))

    let cards = cardPoints |&gt; List.take k
    let revCards = cardPoints |&gt; List.rev |&gt; List.take k |&gt; List.rev
    let sum = revCards |&gt; List.sum
    maxScore' cards revCards sum sum
</code></pre>


## URL

https://leetcode.com/problems/maximum-points-you-can-obtain-from-cards/

## Code

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

```fsharp
open System

let maxScore (cardPoints: int list) (k: int) : int =
    let rec maxScore' cards revCards sum (ret: int) =
        match cards, revCards with
        | [], [] -> ret
        | [], _
        | _, [] -> failwith "never reach here"
        | h1 :: t1, h2 :: t2 ->
            let sum' = sum + h1 - h2
            maxScore' t1 t2 sum' (Math.Max(ret, sum'))

    let cards = cardPoints |> List.take k
    let revCards = cardPoints |> List.rev |> List.take k |> List.rev
    let sum = revCards |> List.sum
    maxScore' cards revCards sum sum
```

LeetCode 1423. Maximum Points You Can Obtain from Cards in F#

URL

Code