Fix the typo "frequences" to frequencies.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user