Add symbol fixtures.
This commit is contained in:
@@ -0,0 +1,20 @@
|
|||||||
|
(ns cipher-analytical-machine.symbol_fixtures
|
||||||
|
(:require [clojure.string :as cs])
|
||||||
|
(:gen-class))
|
||||||
|
|
||||||
|
(defn get-lower-ukrainian-alphabet
|
||||||
|
"Return the ukrainian alphabet for the symbols string"
|
||||||
|
[]
|
||||||
|
"абвгґдеєжзиіїйклмнопрстуфхцчшщьюя")
|
||||||
|
|
||||||
|
(defn get-ukrainian-alphabet
|
||||||
|
"Return the ukrainian alphabet for the symbols string"
|
||||||
|
[]
|
||||||
|
(let [letters (get-lower-ukrainian-alphabet)]
|
||||||
|
(str letters (cs/upper-case letters))))
|
||||||
|
|
||||||
|
(defn get-digits
|
||||||
|
"Return digits for the symbols string"
|
||||||
|
[]
|
||||||
|
"0123456789")
|
||||||
|
|
||||||
Reference in New Issue
Block a user