exo

algo/ocaml/liste.ml

@@ -0,0 +1,15 @@
+
+
+
+
+
+let rec maxprof lst = match lst with
+        [e] -> e
+        |e::l -> let m = maxprof l in if e>m then e else m
+        |[]->failwith "liste vide";;
+
+let rec max2 a l = match l with 
+        [] -> a
+        |e::l -> if a < e then max2 e l else max2 a l;;
+maxprof [3;2;19;4];;
+