Contents

module Atbash (decode, encode) where

import Data.Char       (isAsciiLower, isDigit, toLower)
import Data.List.Split (chunksOf)
import Data.Maybe      (mapMaybe)

decode :: String -> String
decode = mapMaybe atbashChar

encode :: String -> String
encode = unwords . chunksOf 5 . mapMaybe atbashChar

atbashChar :: Char -> Maybe Char
atbashChar c
    | isDigit c       = Just c
    | isAsciiLower lc = Just symmetric
    | otherwise       = Nothing
  where
    lc = toLower c
    symmetric = toEnum $ fromEnum 'a'
                       + fromEnum 'z'
                       - fromEnum lc

Version data entries

396 entries across 396 versions & 1 rubygems

Version	Path
trackler-2.0.0.5	tracks/haskell/exercises/atbash-cipher/examples/success-standard/src/Atbash.hs
trackler-2.0.0.4	tracks/haskell/exercises/atbash-cipher/examples/success-standard/src/Atbash.hs
trackler-2.0.0.3	tracks/haskell/exercises/atbash-cipher/examples/success-standard/src/Atbash.hs
trackler-2.0.0.2	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-2.0.0.1	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-2.0.0.0	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.4.1	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.4.0	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.3.0	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.2.1	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.2.0	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.1.2	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.1.1	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.1.0	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.0.1	tracks/haskell/exercises/atbash-cipher/src/Example.hs
trackler-1.0.0	tracks/haskell/exercises/atbash-cipher/src/Example.hs