gistfile1.clj

;; fuck yo JavaScript Numbers son

(defn ends-in-0 [n]
  (contains? #{0.0 0} (mod n 1)))

(defn maybe-int [n]
  (or (and (ends-in-0 n) (int n)) n))

(defmethod response
  :r-num
  [m]
  (maybe-int (:r-num m)))