<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/best-sightseeing-pair/description/?envType=daily-question&amp;envId=2024-12-27">https://leetcode.com/problems/best-sightseeing-pair/description/?envType=daily-question&amp;envId=2024-12-27</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/best_sightseeing_pair/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/best_sightseeing_pair/main.fsx</a>
<pre><code class="lang-fsharp">let maxScoreSightseeingPair (values: int list) : int =
 let rec maxScoreSightseeingPair' values maxVal acc =
 match values with
 | [] -&gt; acc
 | (i, n) :: t -&gt;
 let sum = maxVal + n - i
 maxScoreSightseeingPair' t (max maxVal (n + i)) (max acc sum)

 match values |&gt; List.indexed with
 | [] -&gt; failwith "never reach here"
 | (_, h) :: t -&gt; maxScoreSightseeingPair' t h 0
</code></pre>

## URL

[https://leetcode.com/problems/best-sightseeing-pair/description/?envType=daily-question&envId=2024-12-27](https://leetcode.com/problems/best-sightseeing-pair/description/?envType=daily-question&envId=2024-12-27)

## Code

[https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/best\_sightseeing\_pair/main.fsx](https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/best_sightseeing_pair/main.fsx)

```fsharp
let maxScoreSightseeingPair (values: int list) : int =
    let rec maxScoreSightseeingPair' values maxVal acc =
        match values with
        | [] -> acc
        | (i, n) :: t ->
            let sum = maxVal + n - i
            maxScoreSightseeingPair' t (max maxVal (n + i)) (max acc sum)

    match values |> List.indexed with
    | [] -> failwith "never reach here"
    | (_, h) :: t -> maxScoreSightseeingPair' t h 0
```

LeetCode 1014. Best Sightseeing Pair in F#

URL

Code