Skip to content

@jackrusher /SimpleMarkovChain.clj
Last active

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
A very simple implementation of Markov chaining in Clojure.
(defn model-from-sequence
"Returns a transition matrix of 'depth' from 'sequence'"
[depth sequence]
(loop [accum {} chunks (partition (inc depth) 1 (seq sequence))]
(if (seq? chunks)
(let [chunk (first chunks)
prefix (drop-last chunk)
suffix (last chunk)]
(recur (assoc accum prefix (conj (get accum prefix []) suffix)) (next chunks)))
accum)))
(defn chain
"Returns a lazy Markov chain starting with 'current' using matrix 'trans'"
[current trans]
(if-let [transitions (trans current)]
(cons (first current)
(lazy-seq (chain (concat (rest current) [(rand-nth transitions)]) trans)))
current))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.