ETOOBUSY 🚀 minimal blogging for the impatient
Want a name for your initiative? Why not pair an adjective and a noun then? Why not generate it programatically?!?
In a couple of previous posts we looked at how to get our hands on some words - for example A Public Domain List of Words.
Let’s put that list to work:
Reading the whole JSON file in a Perl data structure is encapsulated in
its own function
read_json in lines 27-31.
generate_pair is devoted to draw an adjective and a noun
- for adjectives, we consider the direct ones with the addition of a couple of verbal forms, namely past participles and ing forms;
- for nouns… we just use nouns.
After drawing them, the pair is returned as an anonymous array (line 24) and printed out (line 11).
Time for a sample run:
$ for x in 1 2 3 4 5 ; do ./generate-name.pl ; done trotting moons chopping scratches good crews lathering crevices screamed cyclone