Fix the bug that the default language symbols override the symbols.

src/cipher_analytical_machine/cli/cli.clj

@@ -122,8 +122,10 @@
 (defn set-symbols
   "Set defaults symbols for a language."
   [options]
+  (if (contains? options :language)
     (set-option options :symbols
-              (sf/default-symbol-factory (:language options))))
+                (sf/default-symbol-factory (:language options)))
+    options))
 
 (defn load-and-set-option
   "Load the option and set it."

test/cipher_analytical_machine/analyzers/caesar_test.clj

@@ -79,7 +79,7 @@
         ciphertext "bca"
         key 1
         symbols "abc"
-        frequencies sf/english-letter-frequencies]
+        frequencies "etaoinsrhldcumfpgwybvkxjqz"]
     (testing "The ciphertext is 'bca' and key is 1."
       (is (= plaintext
              (frequency-analizer-get-plaintext ciphertext symbols frequencies))))))