fork download
  1.  
  2. let l = [1;2;3;4;5];;
  3. Printf.printf "%B \n" mem l 3;
  4.  
  5.  
  6. let rec mem list element = match list with
  7. | [] -> false
  8. | head::body -> if head=element true else mem tail element;;
  9.  
  10.  
  11.  
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
File "prog.ml", line 8, characters 38-42:
Error: Syntax error
stdout
Standard output is empty