<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/asteroid-collision/description/">Asteroid Collision - 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/0735/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/0735/main.fsx</a></p>
<pre><code class="lang-plaintext">let asteroidCollision (asteroids: int list) : int list =
    let rec collideCheck asteroid stack =
        match stack with
        | [] -&gt; [ asteroid ]
        | h :: t -&gt;
            if h &gt; 0 &amp;&amp; asteroid &lt; 0 then
                if h &gt; -asteroid then stack
                elif h = -asteroid then t
                else collideCheck asteroid t
            else
                asteroid :: stack

    let rec asteroidCollision' asteroids stack =
        match asteroids with
        | [] -&gt; List.rev stack
        | h :: t -&gt;
            match stack with
            | [] -&gt; asteroidCollision' t (h :: stack)
            | _ -&gt;
                let stack' = collideCheck h stack
                asteroidCollision' t stack'

    asteroidCollision' asteroids []
</code></pre>


## URL

[Asteroid Collision - LeetCode](https://leetcode.com/problems/asteroid-collision/description/)

## Code

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

```plaintext
let asteroidCollision (asteroids: int list) : int list =
    let rec collideCheck asteroid stack =
        match stack with
        | [] -> [ asteroid ]
        | h :: t ->
            if h > 0 && asteroid < 0 then
                if h > -asteroid then stack
                elif h = -asteroid then t
                else collideCheck asteroid t
            else
                asteroid :: stack

    let rec asteroidCollision' asteroids stack =
        match asteroids with
        | [] -> List.rev stack
        | h :: t ->
            match stack with
            | [] -> asteroidCollision' t (h :: stack)
            | _ ->
                let stack' = collideCheck h stack
                asteroidCollision' t stack'

    asteroidCollision' asteroids []
```

LeetCode 735. Asteroid Collision in F#

URL

Code