seven languages in seven weeks: clojure day2

ceasar_cipher.clj

(defn ceasarEncodeChar [char, shift] (nth infAlphabetSeq (+ shift (indexInAlphabet char) )))

(defrecord CeasarCipher [shift] Cipher
  (encode [c, message] (reduce str  (map #(ceasarEncodeChar %1 shift)  message )))

)


(def ceasar1 (CeasarCipher. 3))

(println (.encode ceasar1 "message"))
(println (encode ceasar1 alphabet ))

(def ceasar2 (CeasarCipher. 15))

(println (.encode ceasar2 "message"))
(println (encode ceasar2 alphabet ))

cipher.clj

(require 'clojure.string )

(use '[clojure.string :only [lower-case]])

(defprotocol Cipher (encode [c, message]) )

general_encoding.clj

(def alphabet  "abcdefghijklmnopqrstuvwxyz")
(def infAlphabetSeq (cycle (seq alphabet)))

(defn indexInKey[key, letter] (.indexOf key, (lower-case letter)))
(defn indexInAlphabet [letter] (indexInKey alphabet, letter ))

simple_substition_cipher.clj

(defrecord SubstitutionCipher [key] Cipher
  (encode [c, message] (reduce str  (map #(nth (distinct (concat key alphabet )) (indexInAlphabet %1))  message )))

)

(def c (SubstitutionCipher. "zebra"))



(println (.encode c "message"))
(println (encode c alphabet ))

unless.clj

(defmacro  unless [test body elsebody] (list 'if-not test body elsebody))

(unless false (println "if") (println "else"))