                       ["Цвет лемпелей",            ["Жёлтый",  "Жёлтый",    "Жёлтый",    "Белый", "Белый"]],
                       ["Наличие пильских трапков", ["Да",      "Да",        "Да",        "Да",    "Да"]]])
 
+
+;; Domain logic
 (defn alternatives
   ([feature-values]
      (alternatives feature-values nil))

                       (assoc node :children children)))
                   node)))))))

(defn print-answers [answers]
  (loop [current-answers answers
         index 1

      (catch IllegalStateException e (println "Your subject is not known to scientists, because" (.getMessage e))))))


;; Testing in REPL stuff. It is commented, so it wont be compiled and executed.
(comment
  (get-subtree (solve-tree subject-matrix) "Да")
  (print-table [:value1 :value2] [{:value1 1 :value2 2}{:value1 3 :value2 4}])
  (time (pprint (solve-tree subject-matrix)))
  (solve-tree [["f1" ["yes" "yes" "no" "no"]] ["f2" ["1" "2" "2" "—"]]] nil)
