Re: [FWP] PPT

[Michael G Schwern <schwern@pobox.com>]

Some of my favorites:

true:
exit 0;


cat:
print while <>;


yes:
print "@ARGV" || 'y', "\n" until 0;


http://language.perl.com/ppt/src/wump/wump is Hunt the Wumpus in Perl!
The code is an almost 1-to-1 mapping of a BASIC program.

The docs provide some choice words about the Meaning of Life:

"Move around the tunnels and shoot the wumpus. Don't get eaten by the wumpus,
 don't fall into a pit, don't hit yourself with an arrow, watch out for bats."


Speaking of BASIC, fear this:

_10: print "Foo\n";
_20: goto _10;

-- 

Michael G Schwern                                           schwern@pobox.com
                    http://www.pobox.com/~schwern
     /(?:(?:(1)[.-]?)?\(?(\d{3})\)?[.-]?)?(\d{3})[.-]?(\d{4})(x\d+)?/i

==== Want to unsubscribe from Fun With Perl?
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org