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

vault backup: 2023-10-27 16:01:37

Browse Source
This commit is contained in:
Louis Gallet 2023-10-27 16:01:37 +02:00
parent 92497fd94c
commit 171add1d98
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -78,7 +78,7 @@ val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun>
``` ```
## Ex 2.7 ## Ex 2.7
``` ```Ocaml
# let less2 p k l1 l2 = # let less2 p k l1 l2 =
if k < 0 then invalid_arg "k needs to be positive" else if k < 0 then invalid_arg "k needs to be positive" else
let rec less p k l1 l2 acc = match (l1, l2) with let rec less p k l1 l2 acc = match (l1, l2) with
@ -88,3 +88,5 @@ val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun>
in less p k l1 l2 0;; in less p k l1 l2 0;;
val less2 : ('a -> 'b -> bool) -> int -> 'a list -> 'b list -> bool = <fun> val less2 : ('a -> 'b -> bool) -> int -> 'a list -> 'b list -> bool = <fun>
``` ```
## Ex 3.1
```Ocaml