refactor.clj

(defn refil-available-tasks [{:keys [visited graph open-tasks available-tasks timer workers task-cost] :as the-data}]
  {:visited visited :timer timer :workers workers :task-cost task-cost :open-tasks open-tasks :graph graph
   :available-tasks (into available-tasks (get-available-nodes graph open-tasks available-tasks))})

; Change this ^ to this v

(defn refil-available-tasks [{:keys [graph open-tasks available-tasks] :as the-data}]
  (-> the-data
      (update :available-tasks #(conj % (get-available-nodes graph open-tasks available-tasks)))))



(defn reload-workers-with-tasks [{:keys [visited graph open-tasks available-tasks timer workers task-cost] :as the-data}]
   {:visited visited :timer timer :workers workers :task-cost task-cost :graph graph
    :open-tasks (refil-open-tasks task-cost workers open-tasks available-tasks)
    :available-tasks (get-remaining-tasks workers open-tasks available-tasks)})

; Change this ^ to this v

(defn reload-workers-with-tasks [{:keys [open-tasks available-tasks workers task-cost] :as the-data}]
   (-> the-data
       (assoc :open-tasks (refil-open-tasks task-cost workers open-tasks available-tasks)
       (assoc :available-tasks (get-remaining-tasks workers open-tasks available-tasks))))