<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/final-prices-with-a-special-discount-in-a-shop/description/?envType=daily-question&amp;envId=2024-12-18">https://leetcode.com/problems/final-prices-with-a-special-discount-in-a-shop/description/?envType=daily-question&amp;envId=2024-12-18</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/final_prices_with_a_special_discount_in_a_shop/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/final_prices_with_a_special_discount_in_a_shop/main.fsx</a></p>
<pre><code class="lang-fsharp"><span class="hljs-keyword">let</span> finalPrices (prices: int list) : int list =
    <span class="hljs-keyword">let</span> <span class="hljs-keyword">rec</span> finalPrices' prices acc =
        <span class="hljs-keyword">match</span> prices <span class="hljs-keyword">with</span>
        | [] -&gt; List.rev acc
        | h :: t -&gt;
            <span class="hljs-keyword">match</span> List.tryFind ((&gt;=) h) t <span class="hljs-keyword">with</span>
            | Some(v) -&gt; finalPrices' t ((h - v) :: acc)
            | None -&gt; finalPrices' t (h :: acc)

    finalPrices' prices []
</code></pre>


## URL

[https://leetcode.com/problems/final-prices-with-a-special-discount-in-a-shop/description/?envType=daily-question&envId=2024-12-18](https://leetcode.com/problems/final-prices-with-a-special-discount-in-a-shop/description/?envType=daily-question&envId=2024-12-18)

## Code

[https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/final\_prices\_with\_a\_special\_discount\_in\_a\_shop/main.fsx](https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202412/final_prices_with_a_special_discount_in_a_shop/main.fsx)

```fsharp
let finalPrices (prices: int list) : int list =
    let rec finalPrices' prices acc =
        match prices with
        | [] -> List.rev acc
        | h :: t ->
            match List.tryFind ((>=) h) t with
            | Some(v) -> finalPrices' t ((h - v) :: acc)
            | None -> finalPrices' t (h :: acc)

    finalPrices' prices []
```

LeetCode 1475. Final Prices With a Special Discount in a Shop in F#

URL

Code