vault backup: 2023-10-02 14:33:50

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

@@ -1,8 +1,19 @@
-## 1.1
+## 1.1 - Product
-```Ocaml
+
-let product n =
+```
-	if n = [] then
+let rec product = function
+	| [] -> 0
+	| x::t -> x + product t;;
+```
+## 1.2 - Count
+```
+let rec count x n =
+	if x = [] then
 		0
 	else
-		let rec p = 
+		let e::t = x
-			
+		if e = x then
+			1 + count t n
+		else
+			count t n
+```