vault backup: 2023-10-09 13:56:07

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

@@ -140,6 +140,12 @@ let rec growing = function
 ```
 
 ## Exercise 3.2
-```
+```Ocaml
 let rec delete x = function
-	| e::i -> if x == e then 
+	| [] -> []
+	| e::i -> 
+		if x == e then i 
+		else if e < x then
+			e::delete x i
+		else 1
+```