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

vault backup: 2023-10-25 17:32:47

Browse Source
This commit is contained in:
Louis Gallet 2023-10-25 17:32:47 +02:00
parent fef0e7e66d
commit 3486bf7f0f
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Algo/Courses/Chapter 7 - High Order (exercises).md
View File

@ -36,5 +36,13 @@ val map : ('a -> 'b) -> 'a list -> 'b list = <fun>
``` ```
# let rec for_all p = function # let rec for_all p = function
| [] -> true | [] -> true
| e::t -> if p e && for_all p t;; | e::t -> p e && for_all p t;;
val for_all: ('a -> bool) -> 'a list -> bool = <fun> val for_all: ('a -> bool) -> 'a list -> bool = <fun>
```
## Ex 2.3
```
# let rec exists p = function
| [] -> true
| e::t -> p e || for_all p t;;
val exists