{-# OPTIONS_HADDOCK hide, prune #-}
module Crypto.Enigma.Utils where
import Data.Char (chr, ord)
import Data.List (sort)
letters :: String
letters = ['A'..'Z']
numA0 :: Char -> Int
numA0 ch = ord ch - ord 'A'
chrA0 :: Int -> Char
chrA0 i = chr (i + ord 'A')
ordering :: Ord a => [a] -> [Int]
ordering xs = snd <$> sort (zip xs [0..])
encode :: String -> Char -> Char
encode m ch = if i `elem` [0..(length m)-1] then (m !! i) else ' ' where i = numA0 ch
encode' :: String -> String -> String
encode' m s = (encode m) <$> s