skynet.clj

(ns Player
  (:require [clojure.set :as s])
  (:gen-class))

(defn node-filter [nodes]
  (fn [link]
    (not-empty
     (s/intersection
      (set link)
      (set nodes)))))

(defn -main [& args]
  (let [num-nodes (read)
        num-links (read)
        num-gateways (read)
        links (doall (repeatedly num-links (fn [] [(read) (read)])))
        gateways (doall (repeatedly num-gateways read))]

    (while true
      (let [si (read)
            si-links (filter (node-filter [si]) links)
            si-gw-links (filter (node-filter gateways) si-links)
            link-to-sever (first (concat si-gw-links si-links))]

        (apply println link-to-sever)))))