Compare the Triplets.clj

Compare the Triplets.clj

(defn to-int [x]
    (Integer/parseInt x))

(defn string-to-vector [x] 
    (clojure.string/split x #" "))

(def alice-points (atom 0))
(def bob-points (atom 0))
 
(defn counter [points] 
    (swap! points inc))
        
(defn calculate [a b] 
    (let [x (to-int a) 
          y (to-int b)]
    (cond         
        (> x y) (counter alice-points)
        (> y x) (counter bob-points)
        :else :nobody
    )) {:alice @alice-points :bob @bob-points})
    
(def alice (string-to-vector (read-line)))
(def bob (string-to-vector (read-line)))
(def result (last (map calculate alice bob)))

(println (result :alice) (result :bob))