vault backup: 2023-09-05 19:31:13

Algo/Séminaire/Exercices sémaines.md

@@ -49,5 +49,12 @@ val stammer: int -> int = <fun>
 
 
 
+## 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)
 
+```