vault backup: 2023-10-09 13:48:31

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

@@ -134,10 +134,12 @@ let concatenate_lists lst1 lst2 =
 
 ## Exercise 3.1
 ```Ocaml
-let growing i =
-	if i = [] then false
-	else 
-		let rec grow =
-			let e::t = i in
-			let test = e in
-			if e
+let rec growing = function
+		| [] | [_] -> true
+		| x :: y :: rest -> if x <= y then growing (y :: rest) else false;;
+```
+
+## Exercise 3.2
+```
+let rec delete x = function
+	| e::i -> if x == e then