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

vault backup: 2023-10-06 14:28:28

Browse Source
This commit is contained in:
Louis Gallet 2023-10-06 14:28:28 +02:00
parent 4fa3783722
commit 0bd39b7828
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 6 - Lists (Exercises).md
View File

@ -37,7 +37,7 @@ val count = 'a -> 'a list -> int = <fun>
(* Correction *) (* Correction *)
# let search x = function # let search x = function
| [] -> false | [] -> false
| e::t when x = e -> true | e::t -> x = e || search x t
| _::t -> search x t ;; | _::t -> search x t ;;
val search 'a -> 'a list -> bool = <fun> val search 'a -> 'a list -> bool = <fun>
``` ```