Add the default frequency factory.

2023-11-03 20:33:23 +02:00
parent fcae272944
commit ddfd5c473d
3 changed files with 25 additions and 1 deletions
@@ -77,3 +77,16 @@
   \  0.138
 })

+(defn default-frequency-factory
+  "Returns a default map of letter frequencies for a language"
+  [language-code]
+  (cond
+    (= language-code "en")
+    english-letter-frequencies
+
+    (= language-code "uk")
+    ukrainian-letter-frequencies
+
+    :else
+    english-letter-frequencies))
+