> > > further shaving, though it's all lowercase. > > > perldoc perlfaq1: What is a JAPH? > > > > > > print`perldoc -qj`=~/"(j.*)"/ > > > > print`perldoc -qj`=~/(j.*)"/ > > print`$^Xdoc -qj`=~/(j.*)"/ > > where ^X is a raw ^X, of course. Could this be the > first golf I've ever won? Pah, as if! Come on aliens, > do your worst :-)
Hey, alien... that's a great idea. > Mind you, perldoc is an external program, so this whole > approach goes against the rules, otherwise you could > just do: > > print`japh` > > where japh is the appropriate executable. Cut me some slack, I'm trying to explore a way of fitting a JAPH in less than 32 characters. I think, however, this approach is going to hit a deadend... there is still too many characters, and all lowercase presents an annoying problem. Calling one of the standard Perl executables is surely much better than calling some arbitary program that implements the JAPH. Anyone up for JAPH@Home? ;-D Jonathan Paton ===== ---------------BEGIN GEEKCODE BLOCK-----------v3.12 GCS/E d+ s+: a20 C++(+++)>$ UHL++>+++ P+++ L++>++++ E- W++(-) N+ o? K- w--- !O M-- !V PS-- PE++ Y++ PGP t@ 5-- X-- R- tv- b DI+ D- G++ e h! !r--->++ !y--- ----------------END GEEKCODE BLOCK----------------- JAPH: print`perldoc perlembed`=~/(Ju.*)/,"\n" __________________________________________________ Do You Yahoo!? Everything you'll ever need on one web page from News and Sport to Email and Music Charts http://uk.my.yahoo.com
