erlang-leetcode(解题系列）2. 两数相加（中等）

两数相加-原题

给你两个 非空 的链表，表示两个非负的整数。它们每位数字都是按照 逆序 的方式存储的，并且每个节点只能存储 一位 数字。

请你将两个数相加，并以相同形式返回一个表示和的链表。

你可以假设除了数字 0 之外，这两个数都不会以 0 开头。

示例 1：

输入：l1 = [2,4,3], l2 = [5,6,4]
输出：[7,0,8]
解释：342 + 465 = 807.
示例 2：

输入：l1 = [0], l2 = [0]
输出：[0]
示例 3：

输入：l1 = [9,9,9,9,9,9,9], l2 = [9,9,9,9]
输出：[8,9,9,9,0,0,0,1]

提示：

每个链表中的节点数在范围 [1, 100] 内
0 <= Node.val <= 9
题目数据保证列表表示的数字不含前导零。

erlang解题代码

这道题没有什么难度，麻烦的一点是链表的处理（erlang的数组和链表真的没有存在感），转化成list就好处理了。所以增加了node_to_list和list_to_node两个函数，这两个函数会经常用到。

%% Definition for singly-linked list.
%%
%% -record(list_node, {val = 0 :: integer(),
%%                     next = null :: 'null' | #list_node{}}).

-spec add_two_numbers(L1 :: #list_node{} | null, L2 :: #list_node{} | null) -> #list_node{} | null.
add_two_numbers(L1, L2) ->
    L11 = node_to_list(L1, []),
    L21 = node_to_list(L2, []),
    List = do(lists:reverse(L11), lists:reverse(L21), [], 0),
    list_to_node(List, 'null')
  .

list_to_node([], Node) ->
    Node;
list_to_node([A | List], Node) ->
     list_to_node(List, #list_node{val = A, next = Node}).

node_to_list(#list_node{val = Val, next = 'null'} = Node, List) ->
    [Val | List];
node_to_list(#list_node{val = Val, next = NextNode} = Node, List) ->
    node_to_list(NextNode, [Val | List]).

do([], [], NewList, Add) ->
    if
        Add =:= 0 ->
            NewList;
        true ->
            [Add | NewList]
    end;
do([A | List], [], NewList, Add) ->
    New = (Add+A) rem 10,
    NewAdd = (Add+A) div 10,
    do(List, [], [New | NewList], NewAdd);
do([], [A | List], NewList, Add) ->
    New = (Add+A) rem 10,
    NewAdd = (Add+A) div 10,
    do([], List, [New | NewList], NewAdd);
do([A | List1], [B | List2], NewList, Add) ->
    New = (Add+ A + B) rem 10,
    NewAdd = (Add+ A + B)  div 10,
    do(List1, List2, [New | NewList], NewAdd).