offsets.clj

(ns Player
  (:gen-class))

(def xDirs {1 "E" 0 "" -1 "W"})
(def yDirs {1 "S" 0 "" -1 "N"})
(def offsets {1 inc 0 identity -1 dec})
(defn -main [& args]
  (let [[lightX lightY initialTX initialTY] (repeatedly 4 read)
        tX (atom initialTX)
        tY (atom initialTY)]

    (while true
      (let [remainingTurns (read)
            [yIndex xIndex] (map compare [lightY lightX] [@tY @tX])
            dir (str (yDirs yIndex) (xDirs xIndex))]
        (swap! tX (offsets xIndex))
        (swap! tY (offsets yIndex))
        (println dir)))))