langs a-z

Task/Constrained-genericity/OCaml/constrained-genericity-1.ocaml

@@ -0,0 +1,4 @@
+module type Eatable = sig
+  type t
+  val eat : t -> unit
+end

Task/Constrained-genericity/OCaml/constrained-genericity-2.ocaml

@@ -0,0 +1,5 @@
+module MakeFoodBox(A : Eatable) = struct
+  type elt = A.t
+  type t = F of elt list
+  let make_box_from_list xs = F xs
+end

Task/Constrained-genericity/OCaml/constrained-genericity-3.ocaml

@@ -0,0 +1,6 @@
+type banana = Foo (* a dummy type *)
+
+module Banana : Eatable with type t = banana = struct
+  type t = banana
+  let eat _ = print_endline "I'm eating a banana"
+end

Task/Constrained-genericity/OCaml/constrained-genericity-4.ocaml

@@ -0,0 +1,4 @@
+module EatFloat : Eatable with type t = float = struct
+  type t = float
+  let eat f = Printf.printf "I'm eating %f\n%!" f
+end

Task/Constrained-genericity/OCaml/constrained-genericity-5.ocaml

@@ -0,0 +1,5 @@
+module BananaBox = MakeFoodBox (Banana)
+module FloatBox = MakeFoodBox (EatFloat)
+
+let my_box = BananaBox.make_box_from_list [Foo]
+let your_box = FloatBox.make_box_from_list [2.3; 4.5]