From 9fe033ea88c2f705ec18c232873d056e0c229d72 Mon Sep 17 00:00:00 2001
From: Gaspard Coulet <gaspard.coulet@mines-ales.org>
Date: Wed, 28 Apr 2021 23:05:53 +0200
Subject: Initial commit

---
 sem_6/HLIN603/ocaml/TP2/ex1.caml | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 sem_6/HLIN603/ocaml/TP2/ex1.caml

(limited to 'sem_6/HLIN603/ocaml/TP2/ex1.caml')

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);;
-- 
cgit v1.2.3