epicours/Algo/Courses/Chapter 7 - X (exercises).md

8 lines
119 B
Markdown

```Ocaml
# let sum n =
if n = 0 then
0
else if n < 0 then
failwith "input must be positive"
else
n + sum(n-1)