mandag4.sml

(* 4M1 *)
local
  val jens = PLAYER "Jens"
  val mette = PLAYER "Mette"
  val ian = PLAYER "Ian"
  val helle = PLAYER "Helle"
  val yuan = PLAYER "Yuan"
  val anne = PLAYER "Anne"
  val yasmin = PLAYER "Yasmin"
  val ole = PLAYER "Ole"
  val lars = PLAYER "Lars"
  val ea = PLAYER "Ea"
  val susanne = PLAYER "Susanne"  (* mangler en makker *)

  val runde1_1 = MATCH (jens, mette)
  val runde1_2 = MATCH (ian, helle)
  val runde1_3 = MATCH (yuan, anne)
  val runde1_4 = MATCH (yasmin, ole)
  val runde1_5 = MATCH (lars, ea)  (* mangler en makker *)

  val runde2_1 = MATCH (runde1_1, runde1_2)  (* mangler makker *)
  val runde2_2 = MATCH (runde1_3, runde1_4)
  val runde2_3 = MATCH (runde1_5, susanne)

  val runde3_1 = MATCH (runde2_1, runde2_2)

  val runde4_1 = MATCH (runde2_1, runde3_1)
in
  val turnering = runde4_1
end