Here is an alternative implementation that generalizes the encrypt/decrypt functionality. It also uses all printable characters for the source dictionary.
https://gist.github.com/SegFaultAX/5754209 P.S. I accidentally posted this as a reply to an older question I happened to have open. On Monday, June 10, 2013 6:16:03 PM UTC-7, Shannon Severance wrote: > > I'm new to Clojure, but with some lisp experience, I've dabbled in Scheme > for a few years. Used Racket earlier this year for a couple of sectoins of > a MOOC. And occasionally write Emacs lisp. > > The idea is to create cyptograms<https://en.wikipedia.org/wiki/Cryptogram>. > These are word puzzles using simple ciphers, and not meant for keeping real > secrets. > > ;; -> (String -> String) > ;; Returns a function that takes a string and produces a cryptogram. > ;; Multiple calls to make-crypto will return different cryptos > ;; each with different substitution keys. Multiple calls to a given > ;; crypto returned by make-crypto will use the same substitution key. > (defn make-crypto [] > (let [lower (seq "abcdefghijklmnopqrstuvwxyz") > upper (seq "ABCDEFGHIJKLMNOPQRSTUVWXYZ") > digit (seq "0123456789") > > shuffled-lower (shuffle lower) > shuffled-upper (shuffle upper) > shuffled-digit (shuffle digit) > > encrypt (reduce > conj > (map (partial assoc {}) > (concat lower upper digit) > (concat shuffled-lower shuffled-upper > shuffled-digit)))] > (fn [s] > (apply str (map #(encrypt % %) s))))) > > To me, it looks like too much code in defining the encrypt map. But I do > not know how. > > -- Shannon > -- -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en --- You received this message because you are subscribed to the Google Groups "Clojure" group. To unsubscribe from this group and stop receiving emails from it, send an email to clojure+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/groups/opt_out.
