[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

RE: [FWP] perl5 is 5



On Oct 19, Rubinow, Larry blah blah blah:

> Richard Proctor wrote:
> 
> > perl5 is 5.
> > 
> > So in the spirit of JAPH:
> > 
> > for(0..3){print"Happy birthday ".(/2/?"dear perl5":"to 
> > you").(/3/?".":",")."\n"}
> > 
> > Can anybody get it smaller...
> 
> Arguably different output (though not to the casual observer), but two chars
> shorter:
> 
> for(0..3){print"\nHappy birthday ".(/2/?"dear perl5":"to
> you").","};print"\b."

use Birthday 'song' and song("Perl5");

I'm such a bastard.

-- 
MIDN 4/C PINYAN, USNR, NROTCURPI
jeff pinyan    japhy@pobox.com
perl stuff     japhy+perl@pobox.com
CPAN ID: PINYAN            http://www.perl.com/CPAN/authors/id/P/PI/PINYAN


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe