examples/ocaml/sum.ml - compiler-explorer - Rivoreo Source Code Repositories

 let sum l =
   let rec sum' acc = function
     | [] -> acc
     | x::tl -> sum' (acc + x) tl
   in sum' 0 l
	let sum l =
	let rec sum' acc = function
	\| [] -> acc
	\| x::tl -> sum' (acc + x) tl
	in sum' 0 l