Skip to content

Instantly share code, notes, and snippets.

@amalloy

amalloy/letters.clj

Created September 25, 2010 00:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save amalloy/596278 to your computer and use it in GitHub Desktop.
Save amalloy/596278 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
letters.clj
user> (use 'clojure.java.io)
nil
user> (->> "/etc/dictionaries-common/words" file reader line-seq
(map #(.toLowerCase %))
(filter #(every? #{\q \u \i \t} (seq %))))
("" "i" "it" "q" "t" "ti" "tut" "tutu" "u" "i" "it" "q" "quit" "t" "ti" "tit" "tutu" "u")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment