vault backup: 2023-10-16 13:30:06

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

@@ -211,4 +211,12 @@ let rec reverse = function
 	| [] -> []
 	| e::t -> reverse t@[e];;
 val reverse : 'a list -> 'a list = <fun>
+
+(* Correction *)
+# let reverse l = 
+	let rec rev rl = function
+		[] -> rl
+		| e::t -> rev(e::rl) l
+	in rev [] l
+
 ```