From 317aabbcdc4f55a53bdd8686027cf3ed965e87fb Mon Sep 17 00:00:00 2001 From: Louis Date: Fri, 20 Oct 2023 14:24:09 +0200 Subject: [PATCH] vault backup: 2023-10-20 14:24:08 --- Algo/Courses/Chapter 6 - Lists (Exercises).md | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Algo/Courses/Chapter 6 - Lists (Exercises).md b/Algo/Courses/Chapter 6 - Lists (Exercises).md index b475919..0d563cc 100644 --- a/Algo/Courses/Chapter 6 - Lists (Exercises).md +++ b/Algo/Courses/Chapter 6 - Lists (Exercises).md @@ -263,5 +263,6 @@ let assoc k l = | (ke, ve)::t when k = ke -> ve | (ke, ve)::t when k < ke -> failwith "not found" | (ke, ve)::t -> findkey k t - in findkey l + in findkey l;; +val assoc: int -> (int * 'a)list -> 'a = ```