From fd901fb644228ea22af0986aeb4b4f2b6d2988f0 Mon Sep 17 00:00:00 2001 From: Louis Date: Fri, 6 Oct 2023 14:36:59 +0200 Subject: [PATCH] vault backup: 2023-10-06 14:36:59 --- Algo/Courses/Chapter 6 - Lists (Exercises).md | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Algo/Courses/Chapter 6 - Lists (Exercises).md b/Algo/Courses/Chapter 6 - Lists (Exercises).md index 130f515..dc5b4bb 100644 --- a/Algo/Courses/Chapter 6 - Lists (Exercises).md +++ b/Algo/Courses/Chapter 6 - Lists (Exercises).md @@ -92,6 +92,11 @@ val search 'a -> 'a list -> bool = else if hd < min2 && hd > min1 then find_second_smallest (hd :: min1 :: tl) else find_second_smallest (min2 :: tl) in - find_second_smallest tl + find_second_smallest tl;; ``` +## Exercise 2.1 +```Ocaml +let rec arith_list n a r = + +