caesar-cipher-rot13

caesar-cipher-rot13.clj

(defn caesar-en [c]
  (let [i (int c)]
    (cond
      (or (and (>= i (int \a)) (<= i (int \m)))
          (and (>= i (int \A)) (<= i (int \M))))
        (char (+ i 3))
      (or (and (>= i (int \n)) (<= i (int \z)))
          (and (>= i (int \N)) (<= i (int \Z))))
        (char (- i 3))
      :else c)))

(defn caesar-enc[as]
  (apply str (map caesar-en as)))

(defn caesar-dec[sa]
  (apply str (map caesar-de sa)))