Skip to content

Instantly share code, notes, and snippets.

@samccone

samccone/gist:6830bf9ffaebbdb39e87

Created May 25, 2015 19:11
Show Gist options
  • Save samccone/6830bf9ffaebbdb39e87 to your computer and use it in GitHub Desktop.
Save samccone/6830bf9ffaebbdb39e87 to your computer and use it in GitHub Desktop.
Download ZIP
your_ride_is_here
Raw
gistfile1.clj
(defn scheme [encoded]
(mod (->> (seq encoded)
(map #(-> (int %) (- 64)))
(reduce *)) 47))
(defn ride [group comet]
(if (= (scheme group) (scheme comet)) "GO" "STAY"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment