From 7eaa933e99ae63f307bcbae88e1780e5a6fe9550 Mon Sep 17 00:00:00 2001 From: Louis Date: Mon, 16 Oct 2023 14:54:09 +0200 Subject: [PATCH] vault backup: 2023-10-16 14:54:09 --- Algo/Courses/Chapter 6 - Lists (Exercises).md | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Algo/Courses/Chapter 6 - Lists (Exercises).md b/Algo/Courses/Chapter 6 - Lists (Exercises).md index 2436fb8..0a11c7d 100644 --- a/Algo/Courses/Chapter 6 - Lists (Exercises).md +++ b/Algo/Courses/Chapter 6 - Lists (Exercises).md @@ -251,4 +251,6 @@ let assos k l = invalid_arg "k not natural" else match l with - | e::t -> + | -> failwith "not found" + | (k,y)::t -> y + | _ -> assos k t