asherrecv

(require '[clojure.set :as set])

(defn bigrams-with-position [word]
  (map (fn [a b i] [(str a b) i])
        (seq word)
        (seq (drop 1 word))
        (range)))

(defn create-singleton-bigram-index [bigram position word]
  {bigram {position #{word}}})