simulate.clj

(defn trans-alive? [net trans]
  (let [inputs (filter #(= (:trans %) (:name trans)) (:input net))]
    (every? (fn [input]
              (<= (:weight input)
                  (:token (some #(= (:name %) (:name input)) #{}))))
            inputs)))