vault backup: 2023-10-13 14:22:32

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

@@ -141,8 +141,9 @@ let rec growing = function
 let growing = function
 	|[] -> true
 	|l -> let rec g = function
-		|[e]-> true
-		| e1::e2::t -> if e1 > e2 then false else g(e2::t)
+		|[_]-> true
+		| e1::e2::_ -> when e1 > e2 -> false
+		| _::t -> gt
 	in g l;;
 ```