Add symbol factories for punctuation, space, defaults symbols.
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
(ns cipher-analytical-machine.symbol_factories
|
||||
(ns cipher-analytical-machine.symbol-factories
|
||||
(:require [clojure.string :as cs])
|
||||
(:gen-class))
|
||||
|
||||
@@ -32,3 +32,32 @@
|
||||
[]
|
||||
"0123456789")
|
||||
|
||||
(defn punctuation-symbol-factory
|
||||
"Return punctuation symbols"
|
||||
[]
|
||||
".,:;-!?")
|
||||
|
||||
(defn space-symbol-factory
|
||||
"Return punctuation symbols"
|
||||
[]
|
||||
" \t\n")
|
||||
|
||||
(defn default-symbol-factory
|
||||
"Return a default string of symbols for a language"
|
||||
[language-code]
|
||||
(cond
|
||||
(= language-code "en")
|
||||
(str (english-alphabet-factory)
|
||||
(punctuation-symbol-factory)
|
||||
(digit-set-factory)
|
||||
\ )
|
||||
|
||||
(= language-code "uk")
|
||||
(str (ukrainian-alphabet-factory)
|
||||
(punctuation-symbol-factory)
|
||||
(digit-set-factory)
|
||||
\ )
|
||||
|
||||
:else
|
||||
(default-symbol-factory "en")))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user