Extracts a one-liner from a piece of text.
- Counts word occurences
- Given each word, count word occurences immediately after this word
- Construct sentence by taking 1 and 2 recursively
- Avoids repeating a word to avoid infinite loops
- Removes all punctuation marks and convert to lower-case
Why not. Are you not curious about the results?
(ql:quickload 'cl-oneliner) (cl-oneliner:oneliner "whatever wall of text you are too lazy too read")
In the functional fashion of recursion, when given this README as an example, it produces the following:
"word occurences given each"
Isn't that just poetic?
Idea sparked by @flockonus