Skip to content

Instantly share code, notes, and snippets.

@aparrish
Created April 20, 2011 02:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aparrish/930206 to your computer and use it in GitHub Desktop.
Save aparrish/930206 to your computer and use it in GitHub Desktop.
(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