Exercism: "Atbash Cipher in Clojure"

I solved the Atbash Cipher problem in Clojure.

This is my solution:

	(ns atbash-cipher
	(:require [clojure.string :as string]))
	(def ^:private latin-alphabet "abcdefghijklmnopqrstuvwxyz")
	(def ^:private cypher-by-letter
	(zipmap latin-alphabet
	(reverse latin-alphabet)))
	(defn- encode-char [c]
	(if (Character/isDigit c)
	c
	(get cypher-by-letter c)))
	(defn- encode-chunk [chunk]
	(apply
	str
	(map encode-char
	(string/lower-case chunk))))
	(defn- extract-chunks [text]
	(map (partial apply str)
	(partition 5 5 nil text)))
	(defn- remove-punctuation [text]
	(filter
	#(or (Character/isDigit %)
	(Character/isLetter %))
	text))
	(def ^:private encode-chunks
	(partial map encode-chunk))
	(defn encode [text]
	(string/join
	" "
	(encode-chunks
	(extract-chunks
	(remove-punctuation text)))))

view raw atbash-cypher-1.clj hosted with ❤ by GitHub

And this is the same but using the ->> macro inside the encode function:

	(ns atbash-cipher
	(:require [clojure.string :as string]))
	(def ^:private latin-alphabet "abcdefghijklmnopqrstuvwxyz")
	(def ^:private cypher-by-letter
	(zipmap latin-alphabet
	(reverse latin-alphabet)))
	(defn- encode-char [c]
	(if (Character/isDigit c)
	c
	(get cypher-by-letter c)))
	(defn- encode-chunk [chunk]
	(apply
	str
	(map encode-char
	(string/lower-case chunk))))
	(defn- extract-chunks [text]
	(map (partial apply str)
	(partition 5 5 nil text)))
	(defn- remove-punctuation [text]
	(filter
	#(or (Character/isDigit %)
	(Character/isLetter %))
	text))
	(def ^:private encode-chunks
	(partial map encode-chunk))
	(defn encode [text]
	(->>
	text
	(remove-punctuation)
	(extract-chunks)
	(encode-chunks)
	(string/join " ")))

view raw atbash-cypher-2.clj hosted with ❤ by GitHub

For this exercise I had to learn how the padding parameter of the partition function works.

You can nitpick my solution here or see all the exercises I've done so far in this repository.