a awesomely cool sentence generator

markov-text.clj

(ns markov-text.core
  (:require [clojure.string :as str]))

(defn spliter [str]
  (mapv str/lower-case (str/split str #"\s")))


(defn markov-chain [n-gram-size words]
  (loop [m-chain {}
         words words]
    (let [n-gram (take n-gram-size words)
          next   (nth words n-gram-size nil)
          chain  (or (m-chain n-gram) [])]
      (if next
        (recur (assoc m-chain n-gram (dedupe (conj chain next)))
               (rest words))
        m-chain))))



(defn markov-walker [starter chain]
  (loop [sentence [(str/join " " starter)]
         current starter]
    (let [next (rand-nth (chain current))]
      (if (or (str/includes? next "."))
        (str (str/join " " sentence) " " next)
        (recur (conj sentence next) (list (last current) next))))))


; (def corpus "The cat isn't sleeping, but the cat is definetly not listening.")

(->> (slurp "corpus.txt")
  spliter
  (markov-chain 2)
  ;make sure the "some" and "word" are actuall bits in your markov chain otherwise it will npe :)
  (markov-walker (list "some" "word")))