12 lines
174 B
OCaml
12 lines
174 B
OCaml
|
(* map : ('a -> 'b) -> 'a list -> 'b list *)
|
||
|
|
|
||
|
|
let inc x = x + 1
|
||
|
|
|
||
|
|
let rec map f l =
|
||
|
|
match l with
|
||
|
|
| [] -> []
|
||
|
|
| a::rest -> f a :: map f rest
|
||
|
|
|
||
|
|
|
||
|
|
let r = map inc [1;2;3;4] ;
|