markov-chain-meetup-dojo

README.md

• Source http://tinyurl.com/alice-clj

core.clj

(ns markov-chain.core
  (:require [clojure.java.io :as io]
            [clojure.string :as string]))

(defn read-input []
  (-> "input"
      io/resource
      slurp
      (string/split #"[\n\r\s]+")))

(defn generate-model [words]
  (reduce (fn [m [f s]] (update m f conj s))
          {}
          (partition 2 1 words)))

(defn generate-sentence [start-word model]
  (loop [output ""
         next-word start-word]
    (if (= \. (last next-word))
      (str output " " next-word)
      (recur (format "%s %s" output next-word)
             (rand-nth (get model next-word))))))

(->> (read-input)
     (map #(string/replace % #"[()\"]*" ""))
     (filter #(> (count %) 0 ))
     generate-model
     (generate-sentence "Alice")
     string/triml)

https://gist.github.com/little-arhat/dc8cc27c2eee11ace5e97aed60227212

https://gist.github.com/pieter-van-prooijen/8c3f4e9a5ebf9f6424218276b9ea667d