Merge pull request #3 from mariux64/add-vocmultiplier

Add vocmultiplier

Bwak Pukaaak-pukaaak-pukaaak bwak-bwak bwak cluck-cluck-cluck
pukaaak-pukaaak! Pukaaak cock-a-doodle-doo waaak-waaak bwok-bwok
bwwwaaaaaaaaaak bwok-bwok... Bwak puk bwak...

README.md

@@ -4,3 +4,4 @@ Cluck-cluck-cluck waaak cock-a-doodle-doo Pukaaak Cluck-a-buh-gawk puk Cluck-clu
 
 
 ## original idea: https://github.com/sebastiancarlos/chicken-ipsum.git
+## as seen on: https://sebastiancarlos.medium.com/how-i-quit-my-programmer-job-to-become-a-chicken-b733c20680b1

chicken.pl

@@ -19,11 +19,8 @@
     'enumerate|en=i'     => \$opt_enumerate,
 ) or die USAGE;
 
-my @WORDS = (
-    "puk",           "pukaaak", "cluck", "cluck-cluck-cluck", "cluckity",          "bwak",
-    "waaak",         "bok",     "bwok",  "cluck-a-buh-gawk",  "cock-a-doodle-doo", "bwwwaaaaaaaaaak",
-    "gobble-gobble", "honk",
-);
+my @WORDS
+    = ( "puk", "pukaaak", "cluck", "cluckity", "bwak", "waaak", "bok", "bwok", "cluck-a-buh-gawk", "cock-a-doodle-doo", "bwwwaaaaaaaaaak", "gobble", "honk", );
 
 my @PUNCTUATIONS = ( ".", "...", "!", "?" );
 
@@ -48,6 +45,9 @@
 
         my $word = $WORDS[ int( rand( scalar @WORDS ) ) ];
 
+        # magic multiplier
+        $word = join( "-", ($word) x ( 4 - int( ( log( rand(7) + 1 ) / log(2) ) + 1 ) ) );
+
         # optionally add punctuation
         # note: always add punctuation if it's the last word.