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

Algo/Courses/Chapter 7 - High Order (exercises).md

@@ -1,3 +1,4 @@
+## Ex 1.2
 ```Ocaml
 # let sum n = 
 	if n < 0 then
@@ -19,4 +20,13 @@ let sigma f n =
 		let rec sig = function
 			| 0 -> f0
 			| n -> fn + sig (n-1)
-		in sig n;;
+		in sig n;;
+val sigma: (int -> int) -> int -> int = <fun>
+```
+
+## Ex 2.1
+```
+# let map arg list =
+	if list = [] then 0
+	else
+		let e::t = list in