(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