vault backup: 2023-10-13 14:16:48

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

@@ -137,6 +137,13 @@ let concatenate_lists lst1 lst2 =
 let rec growing = function
 		| [] | [_] -> true
 		| x :: y :: rest -> if x <= y then growing (y :: rest) else false;;
+
+let growing = function
+	|[] -> true
+	|l -> let rec g = function
+		|[e]-> true
+		| e1::e2::t -> if e1 > e2 then false else g(e2::t)
+	in g l;;
 ```
 
 ## Exercise 3.2