vault backup: 2023-10-06 14:36:59
This commit is contained in:
parent
148c043cd1
commit
fd901fb644
@ -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 find_second_smallest (min2 :: tl)
|
||||
in
|
||||
find_second_smallest tl
|
||||
find_second_smallest tl;;
|
||||
```
|
||||
|
||||
## Exercise 2.1
|
||||
```Ocaml
|
||||
let rec arith_list n a r =
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user