Skip to content

Commit

Permalink
Add long vocals
Browse files Browse the repository at this point in the history
Pukaaaaak-pukak cluck Cock-a-doooooodle-dooooo-cock-a-doodle-dooo
waaaaak-waaaaak Honk bwak Cluckity-cluckity cluck-cluck-cluck
Bok-bok bwak... Cock-a-doooodle-doooo Puk! Cluckity-cluckity. Pukak
Waaaaak bok Waaak-waaak! Honk puk gobble. Cluck-cluck-cluck Bwok
Cluckity-cluckity-cluckity bwwwaaak waaaaaak honk Cluck gobble
cock-a-dooooooodle-dooooo-cock-a-doooodle-doooooo bwok.
  • Loading branch information
wwwutz committed Nov 25, 2022
1 parent b7e150f commit c363129
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion chicken.pl
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,7 @@
) or die USAGE;

my @WORDS
= ( "puk", "pukaaak", "cluck", "cluckity", "bwak", "waaak", "bok", "bwok", "cluck-a-buh-gawk", "cock-a-doodle-doo", "bwwwaaaaaaaaaak", "gobble", "honk", );
= ( "puk", "pukaak", "cluck", "cluckity", "bwak", "waak", "bok", "bwok", "cluck-a-buh-gawk", "cock-a-doodle-doo", "bwwwaak", "gobble", "honk");

my @PUNCTUATIONS = ( ".", "...", "!", "?" );

Expand Down Expand Up @@ -48,6 +48,9 @@
# magic multiplier
$word = join( "-", ($word) x ( 4 - int( ( log( rand(7) + 1 ) / log(2) ) + 1 ) ) );

# even more magical multiplier
$word =~ s/([aou]){2,}?/$1 x (rand(7)+1)/ge;

# optionally add punctuation
# note: always add punctuation if it's the last word.

Expand Down

0 comments on commit c363129

Please sign in to comment.