vault backup: 2023-10-16 13:59:49

Algo/Courses/Chapter 6 - Lists (Exercises).md

@@ -220,3 +220,19 @@ val reverse : 'a list -> 'a list = <fun>
 	in rev [] l
 val reverse: 'a list -> 'a list = <fun>
 ```
+
+## Exercise 3.6
+```Ocaml
+let rec equals l = function
+	| [] when l = [] -> true
+	| [] -> false
+	| e::t -> if l = [] then false else (let e2::l2 = l in e = e2 + equal (l-1))
+val equals = 'a list -> 'a list -> bool = <fun>
+```
+
+## Exercise 3.7
+```Ocaml
+let shared l1 l2 = function 
+	| [] -> []
+	| e::t -> let rec s l2 = function
+		|e::t ->