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

vault backup: 2023-10-06 14:36:59

Browse Source
This commit is contained in:
Louis Gallet 2023-10-06 14:36:59 +02:00
parent 148c043cd1
commit fd901fb644
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Algo/Courses/Chapter 6 - Lists (Exercises).md
View File

@ -92,6 +92,11 @@ val search 'a -> 'a list -> bool = <fun>
else if hd < min2 && hd > min1 then find_second_smallest (hd :: min1 :: tl) else if hd < min2 && hd > min1 then find_second_smallest (hd :: min1 :: tl)
else find_second_smallest (min2 :: tl) else find_second_smallest (min2 :: tl)
in in
find_second_smallest tl find_second_smallest tl;;
``` ```
## Exercise 2.1
```Ocaml
let rec arith_list n a r =