June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Caesar-cipher/Clojure/caesar-cipher-1.clj
+++ b/Task/Caesar-cipher/Clojure/caesar-cipher-1.clj
--- a/Task/Caesar-cipher/Clojure/caesar-cipher-2.clj
+++ b/Task/Caesar-cipher/Clojure/caesar-cipher-2.clj
@ -0,0 +1,7 @@
+(defn encode [k s]
+  (let [f #(take 26 (drop %3 (cycle (range (int %1) (inc (int %2))))))
+        a #(map char (concat (f \a \z %) (f \A \Z %)))]
+    (apply str (replace (zipmap (a 0) (a k)) s))))
+
+(defn decode [k s]
+  (encode (- 26 k) s))