     {:adjudicator/number 1}
     {:adjudicator/number 5}]},
   :round/dances [{:dance/name "Medium"}],
+  :round/starting [{:participant/number 140}
+                   {:participant/number 141}
+                   {:participant/number 142}
+                   {:participant/number 143}
+                   {:participant/number 144}]
   :result/_activity
   [{:result/mark-x true,
     :result/adjudicator {:adjudicator/number 1},

(defn get-marks-for-dancer [result-facts adjudicator-numbers dancer-number]
  (mapv (partial get-mark result-facts dancer-number) adjudicator-numbers))

(defn result-facts->result-array [result-facts adjudicators]
  (let [adjudicator-numbers (map :adjudicator/number adjudicators)
        dancer-numbers (get-dancers result-facts)]
    (mapv #(hash-map :dancer-number %
                     :marks (get-marks-for-dancer result-facts adjudicator-numbers %))
          dancer-numbers)))

    :result/adjudicator {:adjudicator/number 1},
    :result/participant {:participant/number 144}}])

(defn get-mark [result-facts dancer-number adjudicator-number]
  (let [marks (filterv #(= dancer-number (get-in % [:result/participant :participant/number]))
                       (filter #(= adjudicator-number (get-in % [:result/adjudicator :adjudicator/number])) result-facts))]
