Perl Poetry Generators in 256 Characters(nickm.com) |
Perl Poetry Generators in 256 Characters(nickm.com) |
mons at pats
taws to mims
cant at coes
cabs of tash
ras of monk
the coke pall no cock
cast of cosh
mams on cang
hash of cobs
the bule coat of bums
dick to cats on b x do list random[extract list value by floor index/2 from x] end
on w do list b["cococacamamadebapabohamolaburatamihopodito"],
b["estsnslldsckregspsstedbsnelengkemsattewsntarshnknd"] end
on l do "\n\n %s %s %s" format w[],b["attoonnoof"],w[] end
sys.seed:sys.now
print["the %s%s" w[] l@range 1+random[9]]
Selecting bigrams is rather awkward, and I have to explicitly seed the random number generator, as it is deterministic by default.The occasional "not failed" words keeps it on the thin line of being understandable.