Skip to content

Instantly share code, notes, and snippets.

@Licenser

Licenser/core.clj

Forked from devn/core.clj
Created April 1, 2010 02:23
Show Gist options
  • Save Licenser/351239 to your computer and use it in GitHub Desktop.
Save Licenser/351239 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
core.clj
(defn walton [#^String s]
(let [result (walton-doc s)]
(map (fn [text]
(if (>= (count text) 457)
(apply str (take 457 text) "...")
text)) (nth result (rand-int (count result))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment