<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/minimum-penalty-for-a-shop/description/">Minimum Penalty for a Shop - LeetCode</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/2483/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/2483/main.fsx</a>
<pre><code class="lang-fsharp">let bestClosingTime (customers: string) : int =
 let rec bestClosingTime' i cs count min ret =
 match cs with
 | [] -&gt; ret
 | h :: t -&gt;
 let count' = if h = 'Y' then count - 1 else count + 1

 if count' &lt; min then
 bestClosingTime' (i + 1) t count' count' i
 else
 bestClosingTime' (i + 1) t count' min ret

 let cs = Seq.toList customers
 let count = cs |&gt; List.filter (fun c -&gt; c = 'Y') |&gt; List.length
 bestClosingTime' 1 cs count count 0
</code></pre>

## URL

[Minimum Penalty for a Shop - LeetCode](https://leetcode.com/problems/minimum-penalty-for-a-shop/description/)

## Code

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

```fsharp
let bestClosingTime (customers: string) : int =
 let rec bestClosingTime' i cs count min ret =
 match cs with
 | [] -> ret
 | h :: t ->
 let count' = if h = 'Y' then count - 1 else count + 1

 if count' < min then
 bestClosingTime' (i + 1) t count' count' i
 else
 bestClosingTime' (i + 1) t count' min ret

 let cs = Seq.toList customers
 let count = cs |> List.filter (fun c -> c = 'Y') |> List.length
 bestClosingTime' 1 cs count count 0
```

LeetCode 2483. Minimum Penalty for a Shop in F#

URL

Code