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

vault backup: 2023-10-30 10:17:51

Browse Source
This commit is contained in:
Louis Gallet 2023-10-30 10:17:52 +01:00
parent 0a0932f378
commit 615d8a726a
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Exam.md
View File

@ -1,21 +1,20 @@
## Multiple insertion
```
# let insert_mult n x lst =
if n <= 0 then
invalid_arg "insert_mult: n must be > 0"
else
let rec aux count = function
| [] -> []
| e::t ->
if (count = n) then
e :: x :: aux 1 t
else
e :: aux (count + 1) t
in
match lst with
| [] -> []
| z::f -> z :: aux 0 f
if n <= 0 then
invalid_arg "insert_mult: n must be > 0"
else
let rec aux count = function
| [] -> []
| e::t ->
if (count = n) then
e :: x :: aux 1 t
else
e :: aux (count + 1) t
in
match lst with
| [] -> []
| z::f -> z :: aux 0 f
val insert_mult: int -> 'a -> 'a list -> 'a list = <fun>
```