disintegration.clj

(use '[clojure.string :only (replace-first)])

(def body (atom (slurp "disintegration.txt")))
(def spaces #{\space \newline})

(defn strip-spaces [s] (remove #(spaces %) s))
(defn random-char [s] (rand-nth (strip-spaces s)))

(defn delete-random-char [s]
  (replace-first s (random-char s) \space))

(dotimes [n (.length (apply str (strip-spaces @body)))]
  (println (swap! body #(delete-random-char %))))