From a397067481d940b3a96259751e1abdd0c2e38a00 Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Wed, 25 Oct 2023 16:38:15 +0200
Subject: [PATCH] vault backup: 2023-10-25 16:38:15

---
 Algo/Courses/Chapter 7 - X (exercises).md | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Algo/Courses/Chapter 7 - X (exercises).md b/Algo/Courses/Chapter 7 - X (exercises).md
index ea549e1..3e56df0 100644
--- a/Algo/Courses/Chapter 7 - X (exercises).md	
+++ b/Algo/Courses/Chapter 7 - X (exercises).md	
@@ -1,2 +1,8 @@
 ```Ocaml
-# let double_succ
\ No newline at end of file
+# let sum n = 
+	if n = 0 then
+		0
+	else if n < 0 then
+		failwith "input must be positive"
+	else
+		n + sum(n-1)
\ No newline at end of file