Add the IsNonsense interface for FrequencyAnalyzer.

src/cipher_analytical_machine/analyzers/caesar.clj

@@ -1,8 +1,10 @@
 (ns cipher-analytical-machine.analyzers.caesar
   (:require [cipher-analytical-machine.ciphers.caesar :as caesar]
             [clojure.string :as cs]
+            [cipher-analytical-machine.analyzers.language :as language]
             [cipher-analytical-machine.analyzers.analyzers :as ca])
   (:import [cipher_analytical_machine.ciphers.caesar Decrypted]
+           [cipher_analytical_machine.analyzers.caesar IsNonsense]
            [cipher_analytical_machine.analyzers.caesar FrequencyAnalyzer])
   (:gen-class))
 
@@ -50,10 +52,13 @@
 
 (defn frequency-analizer-get-plaintext
   "Return the plaintext from a ciphertext using simple analizer. The function is case-insensitive."
-  [ciphertext symbols letter-frequencies-string]
+  [ciphertext symbols letter-frequencies-string language-code]
   (let [decrypt (reify Decrypted
                   (decrypt [this message key symbols]
-                    (caesar/decrypt-message message key symbols)))]
-    (-> (new FrequencyAnalyzer ciphertext symbols letter-frequencies-string decrypt)
+                    (caesar/decrypt-message message key symbols)))
+        is-nonsense (reify IsNonsense
+                  (isNonsense [this message]
+                    (language/is-nonsense? message language-code)))]
+    (-> (new FrequencyAnalyzer ciphertext symbols letter-frequencies-string decrypt is-nonsense)
         .crack)))
 

src/cipher_analytical_machine/cli/cli.clj

@@ -160,7 +160,8 @@
 
       (= analyzer "Frequency")
       (caesar-analyzers/frequency-analizer-get-plaintext message symbols
-                                                         (symbol-frequencies/map-to-string frequencies)))))
+                                                         (symbol-frequencies/map-to-string frequencies)
+                                                         (:language options "en")))))
 
 (defn cracking-actions
   [options arguments action-type]