11 lines
168 B
OCaml
11 lines
168 B
OCaml
|
|
let biggest l = match l with
|
|
| [] -> failwith "Empty list"
|
|
| x::q -> List.fold_left
|
|
(fun acc a -> max acc a)
|
|
x
|
|
q
|
|
;;
|
|
|
|
assert (biggest [0; 7; 4] == 7);;
|