vault backup: 2023-10-09 13:17:48
This commit is contained in:
parent
9e34a76dae
commit
039c7bfd1c
@ -111,7 +111,7 @@ let maximum = function
|
|||||||
|
|
||||||
## Exercise 2.1
|
## Exercise 2.1
|
||||||
```Ocaml
|
```Ocaml
|
||||||
let rec arithmetic_list n a1 r =
|
let rec arith_list n a1 r =
|
||||||
if n <= 0 then []
|
if n <= 0 then []
|
||||||
else a1 :: arithmetic_list (n - 1) (a1 + r) r;;
|
else a1 :: arithmetic_list (n - 1) (a1 + r) r;;
|
||||||
```
|
```
|
||||||
|
Loading…
x
Reference in New Issue
Block a user