如何在ocaml中实现此代码？

Question

let rec list_add l i =
    match l with
      [] -> [i]
    | h::t -> h::(list_add t i)

list add用于添加两个列表中的每对整数

（类型） list add : int list -> int list -> int list

（说明） list add [a; b; c; ...] [x; y; z; ...]返回[a + x; b + y; c + z; ...]。如果一个列表比另一个列表长，则剩余的元素列表将附加到结果中。

（示例） list add [1; 2] [3; 4; 5]返回[4; 6; 5]。

Answer 1

let rec add l1 l2 = match l1 with
    [] -> l2
    |h::t -> (*you can do the rest*)
;;