PhillyDev Slack #daily_programmer 2017-09-26 - Symmetrical Strings

symmetrical.clj

(let [symmetrical-chars "!\"'+*-.:=AHIMOTUVWXY^_ovwx| "
      symmetrical-pairs "()<>[]{}qpbd/\\"
      lookup-table      (->> symmetrical-pairs
                             ((juxt seq reverse))
                             (apply concat)
                             (partition 2)
                             (map vec)
                             (into {})
                             (merge (zipmap symmetrical-chars
                                            symmetrical-chars)))]
  (defn symmetrical-pair? [[a b]]
    (= b (get lookup-table a))))

(defn symmetrical? [s]
  (let [n (inc (/ (count s) 2))]
    (every? symmetrical-pair? (map vector (take n s) (take n (reverse s))))))