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

vault backup: 2023-09-15 14:08:51

Browse Source
This commit is contained in:
Louis Gallet 2023-09-15 14:08:51 +02:00
parent 7886cad923
commit 1d890744fd
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
2 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
.obsidian/workspace.json vendored
View File

@ -13,7 +13,7 @@
"state": {
"type": "markdown",
"state": {
"file": "Algo/Séminaire/Introduction.md",
"file": "Algo/Séminaire/Exercices seminaire.md",
"mode": "source",
"source": false
}
@ -85,7 +85,7 @@
"state": {
"type": "backlink",
"state": {
"file": "Algo/Séminaire/Introduction.md",
"file": "Algo/Séminaire/Exercices seminaire.md",
"collapseAll": false,
"extraContext": false,
"sortOrder": "alphabetical",
@ -102,7 +102,7 @@
"state": {
"type": "outgoing-link",
"state": {
"file": "Algo/Séminaire/Introduction.md",
"file": "Algo/Séminaire/Exercices seminaire.md",
"linksCollapsed": false,
"unlinkedCollapsed": true
}
@ -125,7 +125,7 @@
"state": {
"type": "outline",
"state": {
"file": "Algo/Séminaire/Introduction.md"
"file": "Algo/Séminaire/Exercices seminaire.md"
}
}
},
@ -158,11 +158,11 @@
},
"active": "0d2d422aa24bb900",
"lastOpenFiles": [
"Algo/Séminaire/Introduction.md",
"Algo/Séminaire/Chapter 5 - Recursivity.md",
"Algo/Séminaire/Chapter 3 - Case analysis.md",
"Algo/Séminaire/Chapter 2 - Functions.md",
"Algo/Séminaire/Chapter 4 - A bit of imperative.md",
"Algo/Séminaire/Introduction.md",
"Algo/Séminaire/Chapter 1 - CAML basics.md",
"Algo/Séminaire/Exercices seminaire.md",
"Algo/Séminaire/assets/exception-meme.png",

16
Algo/Séminaire/Exercices seminaire.md
View File

@ -331,6 +331,22 @@ let rec reverse_int n =
```
## Exercise 4.9 - Correction
```Ocaml
# let reverse = function
| 0 -> " "
| n -> string_of_int(n mod 10) ^ reverse(n/10);;
val reverse : int -> string = <fun>
# let reverse_int =
let rec rev org new_ =
if org < 10 then
new_ * 10 + org
else
rev (org/10)(new*10 + org mod 10)
in rev n 0;;
```
## Exercise 4.10
```Ocaml