Created

Embed URL

HTTPS clone URL

SSH clone URL

You can clone with HTTPS or SSH.

Download Gist
View gist:3124087
1 2 3 4 5 6 7 8 9 10
(fn [{:keys [states start accepts transitions]}]
((fn words [queue]
(lazy-seq
(when-let [[[state path] & queue] (seq queue)]
(let [more-work (for [[letter state] (transitions state)]
[state (conj path letter)])]
`(~@(when (accepts state)
[(apply str path)])
~@(words (doall (concat queue more-work))))))))
[[start []]]))
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.