<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/minimum-moves-to-equal-array-elements-ii/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/minimum-moves-to-equa..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0462/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">open System

let minMoves2 (nums: int list) : int =
    let rec minMoves2' (nums: int64 list) (origs: int64 list) (ret: int64) =
        match nums with
        | [] -&gt; ret |&gt; int
        | h :: t -&gt;
            let sum =
                origs
                |&gt; List.fold (fun acc n -&gt; acc + (Math.Abs(n - h))) 0L

            minMoves2' t origs (Math.Min(ret, sum))

    let nums' = nums |&gt; List.map int64
    minMoves2' nums' nums' Int64.MaxValue
</code></pre>


## URL

https://leetcode.com/problems/minimum-moves-to-equal-array-elements-ii/

## Code

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

```fsharp
open System

let minMoves2 (nums: int list) : int =
    let rec minMoves2' (nums: int64 list) (origs: int64 list) (ret: int64) =
        match nums with
        | [] -> ret |> int
        | h :: t ->
            let sum =
                origs
                |> List.fold (fun acc n -> acc + (Math.Abs(n - h))) 0L

            minMoves2' t origs (Math.Min(ret, sum))

    let nums' = nums |> List.map int64
    minMoves2' nums' nums' Int64.MaxValue
```


LeetCode 462. Minimum Moves to Equal Array Elements II in F#

URL

Code