generates an output probability map given a sequence

(collate (seq “AEAEAAAAAEAAAAAAEEAEEAEAEEEAAAEAAAA”) 3) => ’{(\A \E \A) {\E 2, \A 3}, (\E \A \E) {\A 2, \E 2}, (\E \A \A) {\A 4}, (\A \A \A) {\A 6, \E 3}, (\A \A \E) {\A 2, \E 1}, (\A \E \E) {\A 2, \E 1}, (\E \E \A) {\E 2, \A 1}, (\E \E \E) {\A 1}}

Reassemble the map of probabilities in cumulative order

generate takes a probability matrix, and produces an infinite stream of tokens, taking into consideration any remembered state

(->> (collate (seq “AEAEAAAAAEAAAAAAEEAEEAEAEEEAAAEAAAA”) 1) (generate) (take 10) (apply str)) ;; “EAAAEAAAAE” => string?

Given a map of probabilities, select one at random.

helper function for collate