Add the clojure wrapper for the frequency analizer and its test.

src/cipher_analytical_machine/caesar_analyzers.clj

@@ -2,6 +2,8 @@
   (:require [cipher-analytical-machine.caesar :as caesar]
             [clojure.string :as cs]
             [cipher-analytical-machine.cipher-analyzers :as ca])
+  (:import [cipher_analytical_machine.ciphers.caesar Decrypted]
+           [cipher_analytical_machine.analizers.caesar FrequencyAnalyzer])
   (:gen-class))
 
 (defn get-all-texts
@@ -46,3 +48,12 @@
                             (get-key ciphertext symbols letter-frequences)
                             symbols)))
 
+(defn frequency-analizer-get-plaintext
+  "Return the plaintext from a ciphertext using simple analizer. The function is case-insensitive."
+  [ciphertext symbols letter-frequences]
+  (let [decrypt (reify Decrypted
+                  (decrypt [this message key symbols]
+                    (caesar/decrypt-message message key symbols)))]
+    (-> (new FrequencyAnalyzer ciphertext symbols letter-frequences decrypt)
+        .crack)))
+

test/cipher_analytical_machine/caesar_analyzers_test.clj

@@ -74,3 +74,13 @@
       (is (= (cs/lower-case plaintext)
              (get-plaintext ciphertext symbols frequences))))))
 
+(deftest frequency-analizer-get-plaintext-test
+  (let [plaintext "abc"
+        ciphertext "bca"
+        key 1
+        symbols "abc"
+        frequences sf/english-letter-frequences]
+    (testing "The ciphertext is 'bca' and key is 1."
+      (is (= plaintext
+             (frequency-analizer-get-plaintext ciphertext symbols frequences))))))
+