From 171add1d98e97c15e9711bc4cd5c1c018b8e178b Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Fri, 27 Oct 2023 16:01:37 +0200
Subject: [PATCH] vault backup: 2023-10-27 16:01:37

---
 Algo/Courses/Chapter 7 - High Order (exercises).md | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Algo/Courses/Chapter 7 - High Order (exercises).md b/Algo/Courses/Chapter 7 - High Order (exercises).md
index 2fe2e51..4cbaf30 100644
--- a/Algo/Courses/Chapter 7 - High Order (exercises).md	
+++ b/Algo/Courses/Chapter 7 - High Order (exercises).md	
@@ -78,7 +78,7 @@ val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun>
 ```
 
 ## Ex 2.7
-```
+```Ocaml
 # let less2 p k l1 l2 =
 	if k < 0 then invalid_arg "k needs to be positive" else
 		let rec less p k l1 l2 acc = match (l1, l2) with 
@@ -88,3 +88,5 @@ val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun>
 		in less p k l1 l2 0;;
 val less2 : ('a -> 'b -> bool) -> int -> 'a list -> 'b list -> bool = <fun>
 ```
+## Ex 3.1
+```Ocaml