vault backup: 2023-09-12 17:15:21

Algo/Séminaire/Exercices seminaire.md

@@ -250,13 +250,21 @@ let time_difference (d1, md1, sd1, pos1) (d2, md2, sd2, pos2)
 
 ## Exercise 4.2
 ```Ocaml
-let rec suite n = let a = 0 in 
-	if n <= 0 then
-		a
-	else
-		a + suite (4*(n-1) - 1);;
-
-
 let rec sequence = function 
 	| 0 -> 1
-	| n -> 4* sequence(n-1) - 1;;
+	| n -> 4* sequence(n-1) - 1;;
+val sequence : int -> int = <fun>
+```
+
+```mermaid
+flowchart LR
+
+A[seq 3] --> B[4*seq2-1] --> C[4*seq1-1] --> D[4*seq0-1] --> E[1] --> F[4*1-1] --> G[4*3-1] --> H[4*11-1]
+```
+
+## Exercise 4.5
+```Ocaml
+let rec add a = function
+	| 0 -> a
+	| b -> 1 + add a (b-1);;
+```