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

vault backup: 2023-10-02 14:18:14

Browse Source
This commit is contained in:
Louis Gallet 2023-10-02 14:18:14 +02:00
parent 1d85a712b0
commit 3942739253
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
3 changed files with 39 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
.obsidian/workspace.json vendored
View File

@ -13,13 +13,26 @@
"state": {
"type": "markdown",
"state": {
"file": "Algo/Séminaire/Chapitre 6 - Lists.md",
"file": "Algo/Courses/Chapter 6 - Lists (Exercises).md",
"mode": "source",
"source": false
}
}
},
{
"id": "accf3e9b23e83334",
"type": "leaf",
"state": {
"type": "markdown",
"state": {
"file": "Algo/Courses/Chapter 6 - Lists (Exercises).md",
"mode": "source",
"source": false
}
}
}
]
],
"currentTab": 1
}
],
"direction": "vertical"
@ -85,7 +98,7 @@
"state": {
"type": "backlink",
"state": {
"file": "Algo/Séminaire/Chapitre 6 - Lists.md",
"file": "Algo/Courses/Chapter 6 - Lists (Exercises).md",
"collapseAll": false,
"extraContext": false,
"sortOrder": "alphabetical",
@ -102,7 +115,7 @@
"state": {
"type": "outgoing-link",
"state": {
"file": "Algo/Séminaire/Chapitre 6 - Lists.md",
"file": "Algo/Courses/Chapter 6 - Lists (Exercises).md",
"linksCollapsed": false,
"unlinkedCollapsed": true
}
@ -125,7 +138,7 @@
"state": {
"type": "outline",
"state": {
"file": "Algo/Séminaire/Chapitre 6 - Lists.md"
"file": "Algo/Courses/Chapter 6 - Lists (Exercises).md"
}
}
},
@ -156,10 +169,12 @@
"command-palette:Open command palette": false
}
},
"active": "88e153f7ea61ad97",
"active": "accf3e9b23e83334",
"lastOpenFiles": [
"Algo/Courses/Chapter 6 - Lists.md",
"Algo/Courses/Chapter 6 - Lists (Exercises).md",
"Algo/Courses",
"Algo/Séminaire/Exercices seminaire.md",
"Algo/Séminaire/Chapitre 6 - Lists.md",
"Algo/CM/CM du 27 septembre.md",
"Algo/Séminaire/Chapter 5 - Recursivity.md",
"COM-ADMR/Séjour international EPITA.md",
@ -197,7 +212,6 @@
"Algo/Séminaire/Weird stuff.md",
"Algo/Séminaire/assets/69E2987C-209A-48CD-8964-5A60462966E5.jpg",
"Algo/Séminaire/assets",
"Algo/Séminaire",
"Untitled.canvas",
"2023-09-01.md",
"Cours algo.md",

8
Algo/Courses/Chapter 6 - Lists (Exercises).md Normal file
View File

@ -0,0 +1,8 @@
## 1.1
```Ocaml
let product n =
if n = [] then
0
else
let rec p =

9
Algo/Séminaire/Chapitre 6 - Lists.md → Algo/Courses/Chapter 6 - Lists.md
View File

@ -108,3 +108,12 @@ val t: int list = [2; 3]
1 +. length t;;
Warning : pattern matching not exhaustive
val length: 'a list -> int = <fun>
# let rec length = function
| [] -> 0
| _::t -> 1 + length t;;
(* with this solution there is no warning *)
val length : 'a list -> int = <fun>
```