<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/candy/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/candy</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0135/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let candy (ratings: int list) : int =
    let rec candy' ratings prev acc =
        match ratings with
        | [] -&gt; acc |&gt; List.rev
        | h :: t -&gt;
            if prev &lt; h then
                candy' t h ((acc.Head + 1) :: acc)
            else
                candy' t h (1 :: acc)

    let lefts = candy' ratings.Tail ratings.Head [ 1 ]
    let rev = ratings |&gt; List.rev
    let rights = candy' rev.Tail rev.Head [ 1 ]

    lefts
    |&gt; List.zip (rights |&gt; List.rev)
    |&gt; List.fold (fun acc (l, r) -&gt; acc + System.Math.Max(l, r)) 0
</code></pre>


## URL

https://leetcode.com/problems/candy/

## Code

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

```fsharp
let candy (ratings: int list) : int =
    let rec candy' ratings prev acc =
        match ratings with
        | [] -> acc |> List.rev
        | h :: t ->
            if prev < h then
                candy' t h ((acc.Head + 1) :: acc)
            else
                candy' t h (1 :: acc)

    let lefts = candy' ratings.Tail ratings.Head [ 1 ]
    let rev = ratings |> List.rev
    let rights = candy' rev.Tail rev.Head [ 1 ]

    lefts
    |> List.zip (rights |> List.rev)
    |> List.fold (fun acc (l, r) -> acc + System.Math.Max(l, r)) 0
```

LeetCode 135. Candy in F#

URL

Code