Fix the typo "frequences" to frequencies.

This commit is contained in:
2023-10-12 22:00:01 +03:00
parent 4d7e9da1d1
commit 476a24c900
5 changed files with 26 additions and 26 deletions
@@ -17,9 +17,9 @@
(defn get-all-scores
"For pairs (key, plaintext) finds scores and return list of pairs [key, score]."
[letter-frequences pairs]
[letter-frequencies pairs]
(map (fn [[key text]]
[key (ca/chi-squared-statistic text letter-frequences)])
[key (ca/chi-squared-statistic text letter-frequencies)])
pairs))
(defn get-min-score-pair
@@ -34,18 +34,18 @@
(defn get-key
"To find the key with frequencies of letters."
[ciphertext symbols letter-frequences]
[ciphertext symbols letter-frequencies]
(->> (get-all-texts ciphertext symbols)
(get-all-scores letter-frequences)
(get-all-scores letter-frequencies)
(get-min-score-pair)
(first)))
(defn get-plaintext
"Return the plaintext from a ciphertext. The function is case-insensitive."
[ciphertext symbols letter-frequences]
[ciphertext symbols letter-frequencies]
(let [ciphertext (cs/lower-case ciphertext)]
(caesar/decrypt-message ciphertext
(get-key ciphertext symbols letter-frequences)
(get-key ciphertext symbols letter-frequencies)
symbols)))
(defn frequency-analizer-get-plaintext