vault backup: 2023-10-06 16:00:48

.obsidian/workspace.json

@@ -31,8 +31,7 @@
               }
             }
           }
-        ],
-        "currentTab": 1
+        ]
       }
     ],
     "direction": "vertical"
@@ -98,7 +97,7 @@
             "state": {
               "type": "backlink",
               "state": {
-                "file": "Algo/Courses/Chapter 6 - Lists (Exercises).md",
+                "file": "Algo/Courses/Chapter 6 - Lists.md",
                 "collapseAll": false,
                 "extraContext": false,
                 "sortOrder": "alphabetical",
@@ -115,7 +114,7 @@
             "state": {
               "type": "outgoing-link",
               "state": {
-                "file": "Algo/Courses/Chapter 6 - Lists (Exercises).md",
+                "file": "Algo/Courses/Chapter 6 - Lists.md",
                 "linksCollapsed": false,
                 "unlinkedCollapsed": true
               }
@@ -138,7 +137,7 @@
             "state": {
               "type": "outline",
               "state": {
-                "file": "Algo/Courses/Chapter 6 - Lists (Exercises).md"
+                "file": "Algo/Courses/Chapter 6 - Lists.md"
               }
             }
           },
@@ -169,8 +168,9 @@
       "command-palette:Open command palette": false
     }
   },
-  "active": "eaf65669cfff2a2c",
+  "active": "c542bf78ebad15cb",
   "lastOpenFiles": [
+    "Algo/Courses/Untitled.md",
     "Algo/Courses/Chapter 6 - Lists.md",
     "Algo/Courses/Chapter 6 - Lists (Exercises).md",
     "Algo/Séminaire/Exercices seminaire.md",
@@ -216,7 +216,6 @@
     "Algo/Séminaire/Weird stuff.md",
     "Algo/Séminaire/assets/69E2987C-209A-48CD-8964-5A60462966E5.jpg",
     "Untitled.canvas",
-    "2023-09-01.md",
-    "Cours algo.md"
+    "2023-09-01.md"
   ]
 }

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

@@ -78,6 +78,14 @@ val nth 'a list -> int -> 'a = <fun>
 				let max_tail = max_value tl in 
 				if hd > max_tail then hd else max_tail
 		in mv list;;
+
+(* Correction *)
+let maximum = function
+	[] -> invalid_arg "Pas bô"
+	| e::t ->
+		(let rec max_rec m = function
+			[]-> m
+			|e::t -> max_rec (if e>m then e else m) t in max_rec e t);;
 ```
 
 ## 1.6 - Bonus second

Algo/Courses/Chapter 6 - Lists.md

@@ -117,3 +117,22 @@ val length : 'a list -> int = <fun>
 ```
 
 
+```mermaid
+flowchart LR
+
+A[l] --> |h::t| B[m < h ? ]
+
+B --> C[m<-h] & D[keep m]
+
+A --> |"[]"| E[m]
+```
+
+## Build/modify a list
+### Construction method
+```Ocaml
+# let rec what = function
+	0 -> []
+	| n -> n::what(n-1);;
+val what : int -> int list = <fun>
+
+# what 3;;