     (->tournament-bracket
       bracket
       (->tournament-teams team-data))
-    ->tournament-tree))+    ->tournament-tree
+    (round-info 7)))
  (Math/round
    (/ (Math/log x)
       (Math/log 2))))

(defn weighted-pairing-log5
  "Compute and update the chance that Team a and Team b will advance when playing against each other,

      (mapcat (partial apply weighted-pairing-pts pick-pts upset-pts)) ;calculate expected pts per game
      (reduce                                               ;aggregate game results together
        #(let [name (:name %2)]
          (if (contains? %1 name)
            (-> (update-in %1 [name :weight] + (:weight %2))
                (update-in [name :avg-pts] + (:avg-pts %2)))
            (assoc %1 name %2)))
        {})
      vals                                                  ;get the aggregation
      (#(vector % fields)))))                               ;preserve the tree
