Skip to content

Instantly share code, notes, and snippets.

@chopmo

chopmo/descent.clj

Created October 5, 2016 18:47
Show Gist options
  • Save chopmo/f3f7b0b89ef6b0f735fa236dc7dd713c to your computer and use it in GitHub Desktop.
Save chopmo/f3f7b0b89ef6b0f735fa236dc7dd713c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
descent.clj
(ns Player
(:gen-class))
(defn -main [& args]
(while true
(let [mountains (doall (repeatedly 8 read))
max-height (apply max mountains)
highest-mountain (.indexOf mountains max-height)]
(println highest-mountain))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment