Functions to verify input for a text game of Reversi

reversi-text-input.clj

(defn malformed-input? [input]
  "Returns true if the input is valid, otherwise false."
  (not (re-find (re-matcher #"^([0-7][A-Ha-h])$|^([A-Ha-h][0-7])$" input))))

(defn parse-input [input]
  "Converts the user input into a coordinate vector"
  (let [f (str (first input)) l (str (last input))]
    (if (Character/isDigit (first input))
      [(Integer/parseInt f) (columns (string/upper-case l))] ; e.g 2E
      [(Integer/parseInt l) (columns (string/upper-case f))]))) ; e.g E2