From 6c88ecb86f231a77a31a54ea102ccd657f77d4f2 Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Thu, 26 Oct 2023 21:02:35 +0200
Subject: [PATCH] vault backup: 2023-10-26 21:02:35

---
 Code CAML.md | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Code CAML.md b/Code CAML.md
index 5605088..68c9618 100644
--- a/Code CAML.md	
+++ b/Code CAML.md	
@@ -20,11 +20,11 @@ let pos_max lst =
 	if lst = [] then
 		failwith "pos_max: empty list"
 	else 
-		let rec pmr mval mpos cpos = function
+		let rec pmr mpos cpos = function
 			| [] -> mpos
-			| e::t ->
+			| e::mval::t ->
 				if e > mval then
-					pmr e cpos (cpos + 1) t
+					pmr cpos (cpos + 1) t
 				else 
 					pmr mval mpos (cpos + 1) t
 		in let init_max =