 (ns markov-clj.markov)
-
 
 (defn parse-corpus [s]
   (clojure.string/split s #"\s+"))

    (assoc database key {val 1})))

(defn build-database [corpus n] (->> corpus
                                     ;; parse-corpus
                                     (generate-tuples (inc n) ,,)
                                     (map index-tuple ,,)
                                     (reduce index-frequencies {} ,,)))

                                  (interpose " " ,,) 
                                  (apply str ,,)))]
    (repeatedly generation-fn)))

(println "\n" (first (generate (parse-corpus (slurp "resources/koleman_tweets.txt")) 1)))
