Skip to content

Instantly share code, notes, and snippets.

@msgodf
Created April 20, 2016 19:39
Show Gist options
  • Save msgodf/f304cdcae6347fcbd9bc917c5848335c to your computer and use it in GitHub Desktop.
Save msgodf/f304cdcae6347fcbd9bc917c5848335c to your computer and use it in GitHub Desktop.
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