jmdeldin · May 8, 2015 23:17
diff --git a/sum.ml b/sum.ml
 let sum lst = 
  let rec aux acc rest = match rest with
    | [] -> acc
    | x::xs -> aux (x+acc) xs in
  aux 0 lst;;

 sum [3;1;4;1;5;9];;
	let sum lst =
	let rec aux acc rest = match rest with
	\| [] -> acc
	\| x::xs -> aux (x+acc) xs in
	aux 0 lst;;

	sum [3;1;4;1;5;9];;