vault backup: 2023-10-25 16:49:43

Algo/Courses/Chapter 7 - X (exercises).md

@@ -8,4 +8,15 @@
 				0
 			else
 				n + sum(n-1)
-		in sumrc n;;
+		in sumrc n;;
+val sum : int -> int = <fun>
+
+(*Correction*)
+let sigma f n = 
+	if n<0 then
+		invalid_arg "n<0"
+	else
+		let rec sig = function
+			| 0 -> f0
+			| n -> fn + sig (n-1)
+		in sig n;;