lgallet/epicours
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

vault backup: 2023-10-20 14:24:08

Browse Source
This commit is contained in:
Louis Gallet 2023-10-20 14:24:09 +02:00
parent 7fbf9619f2
commit 317aabbcdc
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Algo/Courses/Chapter 6 - Lists (Exercises).md
View File

@ -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 = <fun>
```