<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/can-make-arithmetic-progression-from-sequence/description/">Can Make Arithmetic Progression From Sequence - LeetCode</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1502/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1502/main.fsx</a></p>
<pre><code class="lang-plaintext">let canMakeArithmeticProgression (arr: int list) : bool =
    let diffs =
        arr
        |&gt; List.sort
        |&gt; List.windowed 2
        |&gt; List.map (fun v -&gt;
            match v with
            | a1 :: a2 :: [] -&gt; a2 - a1
            | _ -&gt; failwith "never reach here")

    let diff = List.head diffs
    List.forall (fun a -&gt; a = diff) diffs
</code></pre>


## URL

[Can Make Arithmetic Progression From Sequence - LeetCode](https://leetcode.com/problems/can-make-arithmetic-progression-from-sequence/description/)

## Code

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

```plaintext
let canMakeArithmeticProgression (arr: int list) : bool =
    let diffs =
        arr
        |> List.sort
        |> List.windowed 2
        |> List.map (fun v ->
            match v with
            | a1 :: a2 :: [] -> a2 - a1
            | _ -> failwith "never reach here")

    let diff = List.head diffs
    List.forall (fun a -> a = diff) diffs
```

Shohei Yoshida's Blog

Shohei Yoshida's Blog

LeetCode 1502. Can Make Arithmetic Progression From Sequence in F#

URL

Code