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

vault backup: 2023-10-30 11:04:57

Browse Source
This commit is contained in:
Louis Gallet 2023-10-30 11:04:57 +01:00
parent 3befd5bcb4
commit 65fd6fdd02
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.obsidian/workspace.json vendored
View File

@ -157,7 +157,7 @@
"command-palette:Open command palette": false "command-palette:Open command palette": false
} }
}, },
"active": "ab0d8956c63542fc", "active": "c473a791e2b34194",
"lastOpenFiles": [ "lastOpenFiles": [
"Exam.md", "Exam.md",
"Algo/Courses/Chapter 6 - Lists.md", "Algo/Courses/Chapter 6 - Lists.md",

14
Exam.md
View File

@ -1,8 +1,14 @@
## Multiple insertion ## Multiple insertion
``` ```
# let split sep = function # let rec split sep lst =
| [] -> [] let rec aux acc current = function
| e::t -> | [], [] -> acc
let aux | [], tail -> current :: acc
| x::xs, _ ->
if sep x then
aux (current::acc) [] (xs, [])
else aux acc (x :: current) (xs, current)
in aux [] [] (lst, [])
val split: ('a -> bool) -> 'a list -> 'a list list = <fun>
``` ```