ghoseb

Name:

Mr. Baishampayan Ghose

Company:

Infinitely Beta

Languages:

Scheme, Lisp, Haskell, Erlang, Clojure

Profile:

Co-founder & CTO Infinitely Beta.

(defn rot-13 [s]
       (letfn [(rot-13*
                [c]
                (let [i (int c)]
                  (cond
                    (or (and (>= i (int \a)) (<= i (int \m)))
                        (and (>= i (int \A)) (<= i (int \M))))
                    (char (+ i 13))
                    (or (and (>= i (int \n)) (<= i (int \z)))
                        (and (>= i (int \N)) (<= i (int \Z))))
                    (char (- i 13))
                    :else c)))]
         (apply str (map rot-13* s))))
 
(rot-13 "JJJ: uggc://serrtrrx.va/")

Location:


Pune
India