ocaml_examples.ml

(*find i within the lst*)

let rec member i lst =  
match lst with 
[] -> false
| hd::tl -> hd = i || member i tl;;


(*with if else instead*)

let rec member i lst =  
match lst with 
[] -> false
| hd::tl -> if hd = i then true else member i tl;;


(*total up a list*)

let rec total lst =
match lst with
[] -> 0;
| hd::tl -> hd + total tl;;  


(*compare function*)

let cmp x y = 
 if x > y then 1
 else if x < y then -1
 else 0;;