<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/champagne-tower/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/champagne-tower</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0799/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let champagneTower (poured: int) (queryRow: int) (queryGlass: int) : double =
    let glasses = Array2D.zeroCreate&lt;double&gt; 101 101
    glasses.[0, 0] &lt;- double poured

    for i in 0 .. queryRow do
        for j in 0 .. queryGlass do
            let v = glasses.[i, j] - 1.0

            if v &gt; 0.0 then
                let half = v / 2.0
                glasses.[i + 1, j] &lt;- glasses.[i + 1, j] + half
                glasses.[i + 1, j + 1] &lt;- glasses.[i + 1, j + 1] + half

    let ret = glasses.[queryRow, queryGlass]
    if ret &gt;= 1.0 then 1.0 else ret
</code></pre>
<p>This is difficult to solve by functional programming</p>


## URL

https://leetcode.com/problems/champagne-tower/

## Code

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

```fsharp
let champagneTower (poured: int) (queryRow: int) (queryGlass: int) : double =
    let glasses = Array2D.zeroCreate<double> 101 101
    glasses.[0, 0] <- double poured

    for i in 0 .. queryRow do
        for j in 0 .. queryGlass do
            let v = glasses.[i, j] - 1.0

            if v > 0.0 then
                let half = v / 2.0
                glasses.[i + 1, j] <- glasses.[i + 1, j] + half
                glasses.[i + 1, j + 1] <- glasses.[i + 1, j + 1] + half

    let ret = glasses.[queryRow, queryGlass]
    if ret >= 1.0 then 1.0 else ret
```

This is difficult to solve by functional programming

LeetCode 799. Champagne Tower in F#

URL

Code