From 716d3662630d06858398991b63e857e9f68fd4b9 Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Mon, 16 Oct 2023 14:24:27 +0200
Subject: [PATCH] vault backup: 2023-10-16 14:24:27

---
 Algo/Courses/Chapter 6 - Lists (Exercises).md | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Algo/Courses/Chapter 6 - Lists (Exercises).md b/Algo/Courses/Chapter 6 - Lists (Exercises).md
index 4892873..495759e 100644
--- a/Algo/Courses/Chapter 6 - Lists (Exercises).md	
+++ b/Algo/Courses/Chapter 6 - Lists (Exercises).md	
@@ -235,4 +235,10 @@ val equals = 'a list -> 'a list -> bool = <fun>
 let shared l1 l2 = function 
 	| [] -> []
 	| e::t -> let rec s l2 = function
-		|e::t -> 
+		|e::t -> if e = e1 
+					then e::sharede t t2 
+				else if e2 > e then
+					shared t (e2::t2)
+				else
+					shared (e::t) t2;;
+val shard = int list * int list *int list -> int list = <fun>