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

vault backup: 2023-10-16 15:07:24

Browse Source
This commit is contained in:
Louis Gallet 2023-10-16 15:07:24 +02:00
parent f625d132c9
commit a0ba6c4c75
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.obsidian/workspace.json vendored
View File

@ -81,8 +81,7 @@
}
],
"direction": "horizontal",
"width": 300,
"collapsed": true
"width": 300
},
"right": {
"id": "b83c16dd7908c658",

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

@ -246,11 +246,10 @@ val shard = 'a list -> 'a list -> 'a list -> 'a list = <fun>
## Exercise 5.1
```Ocaml
let assos k l =
if (k < 0) then
invalid_arg "k not natural"
else
match l with
| -> failwith "not found"
| (k,y)::t -> y
| _ -> assos k t
let assos k = function
[] -> failwith "not found"
| (k2, v2)::t when k2 = k -> v2
| (k2, v2):: t when k < k2 -> faiwith "not found"
| e::t -> assoc k t
val assos = 'a -> ('a + 'b) list -> 'b = <fun>
```