ppg256 series

Perl Poetry Generators in 256 characters, by Nick Montfort

ppg256-1

perl -le 'sub b{@_=unpack"(A2)*",pop;$_[rand@_]}sub w{" ".b("cococacamamadebapabohamolaburatamihopodito").b("estsnslldsckregspsstedbsnelengkemsattewsntarshnknd")}{$_="\n\nthe".w."\n";$_=w." ".b("attoonnoof").w if$l;s/[au][ae]/a/;print;$l=0if$l++>rand 9;sleep 1;redo}'

Discussion of a preliminary version of ppg256-1, originally posted on Grand Text Auto.

ppg256-2

perl -le 'sub p{split/,/,pop;$_[rand@_]}{$_=p("sw,-aw,&w,saw".", "x$l);s//p("aw,w")/e;s// /g;$_="\n\nthe s\n"if!$l;s/s/ws/;s/a/p("a,the,to,of")/e;s/w/p("b,ch,f,gr,k,p,sh,s,sk,sp,tw")."i".p("ll,n,t")/eg;s/(b|p|f)i/$1.p("a,i")/e;print;$l=0if$l++>6+rand 9;sleep 1;redo}'

Full instructions for ppg256-2.

ppg256-3

perl -le 'sub p{(unpack"(A3)*",pop)[rand 18]}sub w{p("apebotboyelfgodmannunorcgunhateel"x2)}sub n{p("theone"x8)._.p("bigdimdunfathiplitredwanwax")._.w.w."\n"}{print"\n".n."and\n".n.p("cutgothitjammetputransettop"x2)._.p("herhimin it offon outup us "x2);sleep 4;redo}'