Arc Forumnew | comments | leaders | submitlogin
4 points by aidenn0 6133 days ago | link | parent

Playing around with strings-as-sequences I wrote the obligatory rot13:

  (def rot13 (s)
    (with (a (coerce #\a 'int))
     (map [coerce (+ a (mod (- (coerce _ 'int) a 13) 26)) 'char] s)))