automated cut-up poetry from large corpora

2010.01.07

I have completed my senior thesis project at earlham college.

It is stored in its entirety (code+paper) at github; although if you’d prefer a PDF over tex source there’s that too.

Here’s the video of my presentation (accompanying slides):

Tags :                 

sd.pl

2009.10.13
@i = split //,(pop @ARGV);print @i,”\n” and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]–);
@i = split //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]–);
@i = split //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(pop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]=chr (()nt raOi 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit //,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Si,”%n” avd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Si,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);prinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi 94) + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi 940 + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) -vile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdHfi[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%n" ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plzt z/,(2ogu@ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plzt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \Y0 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9HPi%rand @n[ K#i]ecJr i()>! MaOi \Y0 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9HPi%rand @n[ K#i]ecJr i()>! MaOi \B0 + 3<^ &vile ($ARrI[0]G-);
Categories : noise   open source technology

Everything: the detailed history of the future, the true story of your death, the translation of every book in all languages

2009.10.09

I have a radio show every Monday at 9p on WECI 91.5FM. It’s (usually) internet streamable from a rando IP address (directions).

I wrote a very very simple perl script to destroy a string over time. I find the end result to be pretty aesthetically pleasing, so I use it to make fliers for my radio show:

dead air flier

I used a quote from Borges’s Library of Babel as input. The code that does the string decay is up on github.

If you feel like advertising for me, here’s a larger printable version.

Categories : art   noise   open source technology
Tags :           

!blosxom

2009.10.06

Originally this blog was a blosxom blog. I learned of blosxom through hobix, which also made me intensely fascinated by why and his subsequent disappearance.

Here’s why I liked blosxom, and eagerly installed it on lovecraft, my eee server:

  • it’s perl
  • I can use vim to edit my posts
  • it doesn’t insist on rdbms bloatware (I’m looking at you, mysql)
  • it’s hip. I guess.

Unfortunately, my experience was less than stellar. It started off great–the installation was easy and I was up and running within a few minutes. I made my first post with ease. I was still starting at a nineties-looking black-text-on-white-background ‘flavour,’ however, and decided to update it; unfortunately blosxom failed to ever find my flavour files and refused to change styles. I read and reread the docs on the blosxom website (which, I began to notice, has many broken links and some links that simply go to the wrong place) to no avail. I googled around; I found no information or documentation more recent than 2007. I finally logged onto #blosxom on freenode and asked there as politely and fully as possible; that was about 24hrs ago (Yes, I’ve been lurking) and I never received a response from the dozen or so lurkers in there.

I was worried that as I started to add stuff like comments and search that I would have a similar experience, so I made a wordpress blog for myself just like I did for my sweetheart.

And, jeez. Wordpress is just awesome. I will gladly overlook the php and the mysql for all the eye candy ease-of-use goodness awesome it provides.