|
|
|
|
|
by srollyson
4663 days ago
|
|
Can never turn down an opportunity for a one-liner. $ perl -E 'open(my $fh, "<", "/usr/share/dict/words"); my @words = map {chomp; $_} <$fh>; close $fh; say join " ", map {$words[int rand @words]} 1..4'
menu chemists administrative seeps
Might have to run it a couple of times before you get something that you can memorize. |
|