Skip to content

Instantly share code, notes, and snippets.

Created April 20, 2016 19:39
What would you like to do?
A rough solution to Richard's most common phrase problem.
(let [input (take 1000 (repeatedly #(rand-int 10)))
n 3]
(take 10
(reverse (sort-by second
(frequencies (mapcat #(partition n (drop % input))
(range n)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment