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

vault backup: 2023-10-27 15:22:57

Browse Source
This commit is contained in:
Louis Gallet 2023-10-27 15:22:57 +02:00
parent 97709a2e95
commit d3c59aa909
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 7 - High Order (exercises).md
View File

@ -86,4 +86,4 @@ val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun>
| (e::t, e::t2) -> if p e e2 then less p k t t2 (acc + 1) | (e::t, e::t2) -> if p e e2 then less p k t t2 (acc + 1)
else less p k t t2 acc else less p k t t2 acc
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>