<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/maximum-erasure-value/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/maximum-erasure-value</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/1695/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let maximumUniqueSubarray (nums: int list) : int =
    let rec maximumUniqueSubarray' nums i start (acc: int []) pos ret =
        match nums with
        | [] -&gt; ret
        | h :: t -&gt;
            acc.[i + 1] &lt;- acc.[i] + h

            match Map.tryFind h pos with
            | None -&gt;
                let ret' = acc.[i + 1] - acc.[start]
                maximumUniqueSubarray' t (i + 1) start acc (Map.add h i pos) ret'
            | Some (p) -&gt;
                let start' = System.Math.Max(start, p + 1)
                let ret' = acc.[i + 1] - acc.[start']
                maximumUniqueSubarray' t (i + 1) start' acc (Map.add h i pos) ret'

    let acc = Array.zeroCreate (nums.Length + 1)
    maximumUniqueSubarray' nums 0 0 acc Map.empty 0
</code></pre>


## URL

https://leetcode.com/problems/maximum-erasure-value/

## Code

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

```fsharp
let maximumUniqueSubarray (nums: int list) : int =
    let rec maximumUniqueSubarray' nums i start (acc: int []) pos ret =
        match nums with
        | [] -> ret
        | h :: t ->
            acc.[i + 1] <- acc.[i] + h

            match Map.tryFind h pos with
            | None ->
                let ret' = acc.[i + 1] - acc.[start]
                maximumUniqueSubarray' t (i + 1) start acc (Map.add h i pos) ret'
            | Some (p) ->
                let start' = System.Math.Max(start, p + 1)
                let ret' = acc.[i + 1] - acc.[start']
                maximumUniqueSubarray' t (i + 1) start' acc (Map.add h i pos) ret'

    let acc = Array.zeroCreate (nums.Length + 1)
    maximumUniqueSubarray' nums 0 0 acc Map.empty 0
```

LeetCode 1695. Maximum Erasure Value in F#

URL

Code