<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/add-to-array-form-of-integer/description/">Add to Array-Form of Integer - 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/0989/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/0989/main.fsx</a></p>
<pre><code class="lang-plaintext">let addToArrayForm (num: int list) (k: int) : int list =
    let rec addToArrayForm' nums ks carry acc =
        match nums, ks with
        | [], [] -&gt; if carry = 1 then 1 :: acc else acc
        | h :: t, [] -&gt;
            let v = h + carry

            if v &gt;= 10 then
                addToArrayForm' t [] 1 ((v - 10) :: acc)
            else
                addToArrayForm' t [] 0 (v :: acc)
        | [], h :: t -&gt;
            let v = h + carry

            if v &gt;= 10 then
                addToArrayForm' [] t 1 ((v - 10) :: acc)
            else
                addToArrayForm' [] t 0 (v :: acc)
        | h1 :: t1, h2 :: t2 -&gt;
            let v = h1 + h2 + carry

            if v &gt;= 10 then
                addToArrayForm' t1 t2 1 ((v - 10) :: acc)
            else
                addToArrayForm' t1 t2 0 (v :: acc)

    let ks = k |&gt; string |&gt; Seq.map (fun c -&gt; int c - int '0') |&gt; Seq.rev |&gt; Seq.toList
    addToArrayForm' (num |&gt; List.rev) ks 0 []
</code></pre>


## URL

[Add to Array-Form of Integer - LeetCode](https://leetcode.com/problems/add-to-array-form-of-integer/description/)

## Code

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

```plaintext
let addToArrayForm (num: int list) (k: int) : int list =
    let rec addToArrayForm' nums ks carry acc =
        match nums, ks with
        | [], [] -> if carry = 1 then 1 :: acc else acc
        | h :: t, [] ->
            let v = h + carry

            if v >= 10 then
                addToArrayForm' t [] 1 ((v - 10) :: acc)
            else
                addToArrayForm' t [] 0 (v :: acc)
        | [], h :: t ->
            let v = h + carry

            if v >= 10 then
                addToArrayForm' [] t 1 ((v - 10) :: acc)
            else
                addToArrayForm' [] t 0 (v :: acc)
        | h1 :: t1, h2 :: t2 ->
            let v = h1 + h2 + carry

            if v >= 10 then
                addToArrayForm' t1 t2 1 ((v - 10) :: acc)
            else
                addToArrayForm' t1 t2 0 (v :: acc)

    let ks = k |> string |> Seq.map (fun c -> int c - int '0') |> Seq.rev |> Seq.toList
    addToArrayForm' (num |> List.rev) ks 0 []
```

LeetCode 989. Add to Array-Form of Integer in F#

URL

Code