Your Ride is Here

your_ride_is_here_test.clj

(ns your-ride-is-here-test
  [:require [clojure.test :refer :all]])

(defn decode [e]
  (mod (reduce (fn [total, value] (* total value)) 1 (map (fn [a] (- (int a) 64)) (seq e))) 47)
  )

(defn ride [group, comet]
  (if (= (decode group) (decode comet)) "GO" "STAY")
  )

(def test-data
  (shuffle [
    ["COMETQ","HVNGAT","GO"],
    ["STARAB","USACO","STAY"],
    ["EARTH","LEFTB","GO"],
    ["PULSAR","VENUS","STAY"],
    ["KANSAS","UTAH","STAY"],
    ["APPLE","URSA","GO"],
    ["MSFT","MARS","STAY"],
    ["PLUTO","BKHOLE","STAY"],
    ["COWSBC","RIGHT","GO"],
    ["DRKMTR","SNIKER","STAY"]]))

(deftest basic-test
  (doseq [[group comet result] test-data]
    (testing (str "Group " group " and comet " comet)
      (is (= (ride group comet) result) (str "should " result)))))

(run-tests)