Create a gist now

Instantly share code, notes, and snippets.

Embed
(I cheated: you need sowpods.txt for this.)
isobel:~ adam$ perl -nle 'chomp;push@w,$_ if"everything"=~/$_/;END{{print join" ",map{$w[rand @w]}0..rand(4);print""if++$i%3==0;redo}}' <~/Documents/Code/sowpods.txt |head -40
thin hi thing thin
every eve
thin very eve hing
eve every
eve hi hin
everything thin hin
er everything
hin hing
hi ever every
hin er
everything er
ever
hing hing eve
ever hi er
eve hin thin
hing hing thing
er thing hin
in thin hin hi
thin eve hing everything
in ever very
every
hing thin thin thing
ever every in hi
very
thing everything hin thing
ever
hing every thin
thing
in every every hing
er
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment