<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/minimum-size-subarray-sum/description/">Minimum Size Subarray Sum - LeetCode</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/0209/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/0209/main.fsx</a></p>
<pre><code class="lang-plaintext">open System

let minSubArray (target: int) (nums: int[]) : int =
    let rec shrinkWindow left right sum target (nums: int[]) (ret: int) =
        if sum &lt; target then
            left, sum, ret
        else
            let ret' = Math.Min(ret, right - left + 1)
            let sum' = sum - nums.[left]
            shrinkWindow (left + 1) right sum' target nums ret'

    let rec minSubArray' left right sum target (nums: int[]) ret =
        if right = nums.Length then
            if ret = Int32.MaxValue then 0 else ret
        else
            let left', sum', ret' = shrinkWindow left right (sum + nums.[right]) target nums ret
            minSubArray' left' (right + 1) sum' target nums ret'

    minSubArray' 0 0 0 target nums (Int32.MaxValue)
</code></pre>


## URL

[Minimum Size Subarray Sum - LeetCode](https://leetcode.com/problems/minimum-size-subarray-sum/description/)

## Code

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

```plaintext
open System

let minSubArray (target: int) (nums: int[]) : int =
    let rec shrinkWindow left right sum target (nums: int[]) (ret: int) =
        if sum < target then
            left, sum, ret
        else
            let ret' = Math.Min(ret, right - left + 1)
            let sum' = sum - nums.[left]
            shrinkWindow (left + 1) right sum' target nums ret'

    let rec minSubArray' left right sum target (nums: int[]) ret =
        if right = nums.Length then
            if ret = Int32.MaxValue then 0 else ret
        else
            let left', sum', ret' = shrinkWindow left right (sum + nums.[right]) target nums ret
            minSubArray' left' (right + 1) sum' target nums ret'

    minSubArray' 0 0 0 target nums (Int32.MaxValue)
```

LeetCode 209. Minimum Size Subarray Sum in F#

URL

Code