diff --git a/.obsidian/workspace.json b/.obsidian/workspace.json index ed35cf8..08af3a0 100644 --- a/.obsidian/workspace.json +++ b/.obsidian/workspace.json @@ -13,7 +13,7 @@ "state": { "type": "markdown", "state": { - "file": "Algo/Séminaire/Chapter 3 - Case analysis.md", + "file": "Algo/Séminaire/Exercices sémaines.md", "mode": "source", "source": false } @@ -85,7 +85,7 @@ "state": { "type": "backlink", "state": { - "file": "Algo/Séminaire/Chapter 3 - Case analysis.md", + "file": "Algo/Séminaire/Exercices sémaines.md", "collapseAll": false, "extraContext": false, "sortOrder": "alphabetical", @@ -102,7 +102,7 @@ "state": { "type": "outgoing-link", "state": { - "file": "Algo/Séminaire/Chapter 3 - Case analysis.md", + "file": "Algo/Séminaire/Exercices sémaines.md", "linksCollapsed": false, "unlinkedCollapsed": true } @@ -125,7 +125,7 @@ "state": { "type": "outline", "state": { - "file": "Algo/Séminaire/Chapter 3 - Case analysis.md" + "file": "Algo/Séminaire/Exercices sémaines.md" } } } @@ -148,11 +148,11 @@ }, "active": "13c9bfe482ec2d42", "lastOpenFiles": [ - "Algo/Séminaire/Chapter 2 - Functions.md", "Algo/Séminaire/Chapter 3 - Case analysis.md", "Algo/Séminaire/Exercices sémaines.md", - "Algo/Séminaire/assets/69E2987C-209A-48CD-8964-5A60462966E5.jpg", "Algo/Séminaire/Chapter 1 - CAML basics.md", + "Algo/Séminaire/Chapter 2 - Functions.md", + "Algo/Séminaire/assets/69E2987C-209A-48CD-8964-5A60462966E5.jpg", "Algo/Séminaire/Introduction.md", "Algo/Séminaire/assets", "Algo/Séminaire/assets/F1D2AA19-E790-4022-AFFF-F778EAB28AB5.jpg", diff --git a/Algo/Séminaire/Exercices sémaines.md b/Algo/Séminaire/Exercices sémaines.md index 52b8f37..c20e84c 100644 --- a/Algo/Séminaire/Exercices sémaines.md +++ b/Algo/Séminaire/Exercices sémaines.md @@ -49,5 +49,12 @@ val stammer: int -> int = +## Exercice 2.6 +```Ocaml +let sef_of_time h m s = + h*3600 + m*60 + s ;; +let time_of_sec s = + let hours = s/3600 and minutes = s mod 60 and seconds = s mod 3600 in (hours, minutes, seconds) +```