36 lines
534 B
Markdown
36 lines
534 B
Markdown
## Ex 1.2
|
|
```Ocaml
|
|
# let sum n =
|
|
if n < 0 then
|
|
invalid_arg "n<0"
|
|
else
|
|
let rec sumrc n =
|
|
if n=0 then
|
|
0
|
|
else
|
|
n + sum(n-1)
|
|
in sumrc n;;
|
|
val sum : int -> int = <fun>
|
|
|
|
(*Correction*)
|
|
let sigma f n =
|
|
if n<0 then
|
|
invalid_arg "n<0"
|
|
else
|
|
let rec sig = function
|
|
| 0 -> f0
|
|
| n -> fn + sig (n-1)
|
|
in sig n;;
|
|
val sigma: (int -> int) -> int -> int = <fun>
|
|
```
|
|
|
|
## Ex 2.1
|
|
```
|
|
# let map arg list =
|
|
if list = [] then 0
|
|
else
|
|
let e::t = list in
|
|
# let rec map f = function
|
|
| [] -> []
|
|
|e::t -> f(e)::map f t ;;
|