in reply to Re: beatnik poetry generator
in thread beatnik poetry generator

Yes! I Love that last version! Well done!

One minor cleanup might be: 
perl -e 'print sort {reverse lc($a) cmp reverse lc($b)} <>' /usr/share
+/dict/words

[download]

But then, you probably want to skip acronyms altogether, so I'm not sure if that's a good idea.

And my favourite viewing method is something like this: 
/usr/X11R6/lib/xscreensaver/phosphor -root -delay 50000 -program "beat
+nik.pl < /usr/share/dict/words"

[download]
You gotta love the jwz screensavers (perl-hater though he is :).

Replies are listed 'Best First'.
Re: beatnik poetry generator
by ChemBoy (Priest) on Apr 09, 2001 at 20:22 UTC
    The case issue occured to me later, but I don't think it makes much difference--acronyms, as you say, are about it, and there aren't that many of them in the dictionary. I'd figure out how many, but the local Linux boxes are all having screaming fits today, so I can't right now (unless somebody wants to tell me where to find the words file on IRIX, which I'm not convinced is there at all).

    Thanks for the tip on the screen-saver--might have to try that.


    If God had meant us to fly, he would *never* have give us the railroads.
         --Michael Flanders

[reply]

In Section Cool Uses for Perl