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

vault backup: 2023-10-27 14:54:10

Browse Source
This commit is contained in:
Louis Gallet 2023-10-27 14:54:10 +02:00
parent 0fac88d66f
commit 6c41337f1f
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,4 +74,8 @@ let rec partition p l =
| h==t> let (l1, l2) = partition p t in | h==t> let (l1, l2) = partition p t in
if p h then (h::l1,l2) if p h then (h::l1,l2)
else (l1, h::l2);; else (l1, h::l2);;
val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun> val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun>
```
## Ex 2.7
```Ocaml