kunishi · January 29, 2014 10:21
diff --git a/sumEach.sml b/sumEach.sml
 fun sumEach(nil) = (0, 0)
  | sumEach((x, y)::xs) =
    let
      val (s1, s2) = sumEach(xs)
    in
      (x + s1, y + s2)
    end;
	fun sumEach(nil) = (0, 0)
	\| sumEach((x, y)::xs) =
	let
	val (s1, s2) = sumEach(xs)
	in
	(x + s1, y + s2)
	end;