<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/merge-strings-alternately/description/">Merge Strings Alternately - 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/1768/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1768/main.fsx</a></p>
<pre><code class="lang-plaintext">let mergeAlternately (word1: string) (word2: string) : string =
    let rec mergeAlternately' cs1 cs2 even (acc: char list) =
        match cs1, cs2 with
        | [], [] -&gt; acc |&gt; List.rev |&gt; System.String.Concat
        | h :: t, [] -&gt; mergeAlternately' t [] even (h :: acc)
        | [], h :: t -&gt; mergeAlternately' [] t even (h :: acc)
        | h :: t, _ when even -&gt; mergeAlternately' t cs2 false (h :: acc)
        | _, h :: t -&gt; mergeAlternately' cs1 t true (h :: acc)

    mergeAlternately' (Seq.toList word1) (Seq.toList word2) true []
</code></pre>


## URL

[Merge Strings Alternately - LeetCode](https://leetcode.com/problems/merge-strings-alternately/description/)

## Code

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

```plaintext
let mergeAlternately (word1: string) (word2: string) : string =
    let rec mergeAlternately' cs1 cs2 even (acc: char list) =
        match cs1, cs2 with
        | [], [] -> acc |> List.rev |> System.String.Concat
        | h :: t, [] -> mergeAlternately' t [] even (h :: acc)
        | [], h :: t -> mergeAlternately' [] t even (h :: acc)
        | h :: t, _ when even -> mergeAlternately' t cs2 false (h :: acc)
        | _, h :: t -> mergeAlternately' cs1 t true (h :: acc)

    mergeAlternately' (Seq.toList word1) (Seq.toList word2) true []
```

LeetCode 1768. Merge Strings Alternately in F#

URL

Code