6 lines
111 B
OCaml
6 lines
111 B
OCaml
val dot = ListPair.foldlEq Real.*+ 0.0
|
|
|
|
(*
|
|
- dot ([1.0, 3.0, ~5.0], [4.0, ~2.0, ~1.0]);
|
|
val it = 3.0 : real
|
|
*)
|