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

vault backup: 2023-10-16 14:39:09

Browse Source
This commit is contained in:
Louis Gallet 2023-10-16 14:39:09 +02:00
parent e4518efe0a
commit 4aab4c46ec
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.obsidian/workspace.json vendored
View File

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

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

@ -221,7 +221,7 @@ val reverse : 'a list -> 'a list = <fun>
val reverse: 'a list -> 'a list = <fun> val reverse: 'a list -> 'a list = <fun>
``` ```
## Exercise 3.6 ## Exercise 4.1
```Ocaml ```Ocaml
let rec equals l = function let rec equals l = function
| [] when l = [] -> true | [] when l = [] -> true
@ -230,7 +230,7 @@ let rec equals l = function
val equals = 'a list -> 'a list -> bool = <fun> val equals = 'a list -> 'a list -> bool = <fun>
``` ```
## Exercise 3.7 ## Exercise 4.2
```Ocaml ```Ocaml
let shared l1 l2 = function let shared l1 l2 = function
| [] -> [] | [] -> []
@ -242,3 +242,13 @@ let shared l1 l2 = function
else else
shared (e::t) t2;; shared (e::t) t2;;
val shard = 'a list -> 'a list -> 'a list -> 'a list = <fun> 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
| e::t ->