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

vault backup: 2023-10-06 14:47:45

Browse Source
This commit is contained in:
Louis Gallet 2023-10-06 14:47:45 +02:00
parent fd901fb644
commit 890ea1b07b
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 10 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,23 +44,17 @@ val search 'a -> 'a list -> bool = <fun>
## 1.4 - $n^{th}$ ## 1.4 - $n^{th}$
```Ocaml ```Ocaml
# let rec length l = # let nth l n =
if l = [] then if n <= 0 then
0 invalid_arg "n <= 0"
else else
let e::t = l in let rec nthrec = function
1 + length t;; | ([],_) -> failwith "list too short"
# let rec nth x n = | (h::_,1)-> h
if (x = [] || n =< 0) then | (_::t, n) -> nthrec(t, n-1)
Invalid_arg "The number of element in the list is 0" in
else if length x < n then ntrec(l, n);;
Failwith "The list is too short" val nth 'a list -> 'a -> int = <fun>
else
let e::t = x in
if n = 0
return e
else
nth t (n-1) ;;
``` ```