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

vault backup: 2023-10-29 16:02:22

Browse Source
This commit is contained in:
Louis Gallet 2023-10-29 16:02:22 +01:00
parent 2ab43a01bf
commit f5522ec675
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Algo/Courses/Chapter 6 - Lists (Exercises).md
View File

@ -120,7 +120,7 @@ let rec arith_list n a1 r =
if n <= 0 then if n <= 0 then
invalid_arg "invalid rank n" invalid_arg "invalid rank n"
else else
let rec f ai = function let rec f a i = function
| 0 -> [] | 0 -> []
| i -> (a1+(n-i)+r)::f(ai+r) (i-1) | i -> (a1+(n-i)+r)::f(ai+r) (i-1)
in f ai n;; in f ai n;;