vault backup: 2023-09-12 17:47:53

2023-09-12 17:47:53 +02:00
parent 91ea71795f
commit b63dad735f
2 changed files with 12 additions and 5 deletions
--- a/Algo/Séminaire/Exercices
+++ b/Algo/Séminaire/Exercices
@ -268,3 +268,9 @@ let rec add a = function
 	| 0 -> a
 	| b -> 1 + add a (b-1);;
 ```
+
+## Exercise 4.6
+```Ocaml
+let rec mult a = function
+	| a when a = 0 | a when b = 0 -> 0
+	|