Caesar cipher: Difference between revisions
→{{header|Clojure}}
imported>Arakov |
|||
Line 1,863:
=> "The Quick Brown Fox jumped over the lazy dog"
</pre>
Fast version, using str/escape:
<syntaxhighlight lang="clojure">(defn fast-caesar [n s]
(let [m (mod n 26)
upper (map char (range 65 91))
upper->new (zipmap upper (drop m (cycle upper)))
lower (map char (range 97 123))
lower->new (zipmap lower (drop m (cycle lower)))]
(clojure.string/escape s (merge upper->new lower->new))))</syntaxhighlight>
output:<pre>
(fast-caesar 12 "The Quick Brown Fox jumped over the lazy dog")
=> "Ftq Cguow Ndaiz Raj vgybqp ahqd ftq xmlk pas"
</pre>
=={{header|COBOL}}==
[[COBOL-85]] ASCII or EBCIDIC
| |||