lgallet/epicours
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

vault backup: 2023-10-25 16:43:46

Browse Source
This commit is contained in:
Louis Gallet 2023-10-25 16:43:46 +02:00
parent a397067481
commit 9c5f0484ec
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Algo/Courses/Chapter 7 - X (exercises).md
View File

@ -1,8 +1,11 @@
```Ocaml ```Ocaml
# let sum n = # let sum n =
if n = 0 then if n < 0 then
0 invalid_arg "n<0"
else if n < 0 then
failwith "input must be positive"
else else
n + sum(n-1) let rec sumrc n =
if n=0 then
0
else
n + sum(n-1)
in sumrc n;;