(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