1 files changed, 18 insertions, 0 deletions
diff --git a/sem_6/HLIN603/ocaml/TP2/ex1.caml b/sem_6/HLIN603/ocaml/TP2/ex1.caml
new file mode 100644
index 0000000..ab3237a
--- /dev/null
+++ b/sem_6/HLIN603/ocaml/TP2/ex1.caml
@@ -0,0 +1,18 @@
+class min ( xi : int ) =
+object ( self )
+  val mutable x = xi
+  method get = x
+  method set n = x <- n
+  method min y = if self#get < y then self#get else y
+end;;
+class min_zero xi =
+object
+  inherit min xi
+  method get = 0
+end;;
+let o1 = new min 4;;
+let o2 = new min_zero 0;;
+o1#min 2;;
+o1#min 7;;
+o2#min 2;;
+o2#min (-2);;