Lahenda crashcourse hulgad praktikumis

Author: sim642

src/crashcourse/collections.ml

@@ -64,14 +64,30 @@ let list_product (xs: int list): int =
 
 (** Näited. *)
 
+module Foo =
+struct
+  type t = bool
+
+  let x = 42
+
+  let f y = 2 * y
+
+  module Bar =
+  struct
+
+  end
+end
+
 (** Täisarvude hulkade moodul. *)
 module IntSet = Set.Make (Int)
 
 (** Teisendab täisarvude puu hulgaks.
     Vihje: IntSet.singleton.
     Vihje: IntSet.union. *)
 let rec intset_of_tree (t: int tree): IntSet.t =
-  failwith "TODO"
+  match t with
+  | Leaf x -> IntSet.singleton x
+  | Branch (l, r) -> IntSet.union (intset_of_tree l) (intset_of_tree r)
 
 
 (** Puu elementide mooduli tüüp/signatuur. *)
@@ -98,10 +114,14 @@ struct
 
   (** Teisendab puu hulgaks. *)
   let rec to_set (t: element tree): Set.t =
-    failwith "TODO"
+    match t with
+    | Leaf x -> Set.singleton x
+    | Branch (l, r) -> Set.union (to_set l) (to_set r)
 
   (** Teisendab puu sõneks.
       Vihje: Element.show. *)
   let rec show (t: element tree): string =
-    failwith "TODO"
+    match t with
+    | Leaf x -> Element.show x
+    | Branch (l, r) -> "(" ^ show l ^ " " ^ show r ^ ")"
 end