Producto de punto ocaml
let rec safe_dot_product (vect1: int list) (vect2: int list) : int option =
match (vect1, vect2) with
| [],[] -> Some 0
| [],_ -> None
| _,[] -> None
| (x::xs, y::ys) ->
match safe_dot_product xs ys with
| None -> None
| Some m -> Some ((x*y) + m)
JunJun