Secret Santa

wichtel.clj

(ns website.wichtel)

(def teilnehmer:innen
  #{"Alex" "Alina" "Andrea" "Chris" "Justine" "Pia" "Timo" "Volker"})

(def paare
  [#{"Alex" "Alina"}
   #{"Andrea" "Volker"}
   #{"Chris" "Pia"}
   #{"Justine" "Timo"}])

(defn ist-partner-von?
  [teilnehmer-1 teilnehmer-2]
  (contains?
    (->> paare
      (filter #(contains? % teilnehmer-1))
      (first))
    teilnehmer-2))

(defn- zuordnen
  [teilnehmer:innen]
  (->> teilnehmer:innen
    (shuffle)
    (cycle)
    (take (inc (count teilnehmer:innen)))
    (partition 2 1)))

(defn- paar-zugeordnet?
  [[teilnehmer-1 teilnehmer-2]]
  (ist-partner-von? teilnehmer-1 teilnehmer-2))

(defn output-zuordnung
  [[teilnehmer-1 teilnehmer-2]]
  (spit
    (str "/Users/linde/playground/secret-santa/" teilnehmer-1 ".txt")
    (str "Hallo " teilnehmer-1 " du hast für das Wichteln den Teilnehmer " teilnehmer-2 " gezogen.")))

(defn auslosen
  [teilnehmer:innen]
  (let [zuordnungen (zuordnen teilnehmer:innen)]
    (if (some true? (map paar-zugeordnet? zuordnungen))
      (do (println "paar zugeordnet... noch ein versuch")
          (auslosen teilnehmer:innen))
      (dorun (map output-zuordnung zuordnungen)))))

(auslosen teilnehmer:innen)