truemped

#!/usr/bin/env python
"""
Shows git branches sorted by last commit date, noting when branch has been
merged:

    $ git blast
    * master 33 minutes ago
      david 4 days ago [M]
      unholy-david-payments 4 days ago
      handsontable-2 5 days ago

truemped

(defn words [text] (re-seq #"[a-z]+" (.toLowerCase text)))
 
(defn train [features]
  (reduce (fn [model f] (assoc model f (inc (get model f 1)))) {} features))
 
(def *nwords* (train (words (slurp "big.txt"))))
 
(defn edits1 [word]
  (let [alphabet "abcdefghijklmnopqrstuvwxyz", n (count word)]
    (distinct (concat