Re: [FWP] Quine, ontology, and Perl

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

On Tue, May 09, 2000 at 05:48:12PM -0400, Ala Qumsieh wrote:
> 
> > > > perl -le
> > > >    '@Just_another_Perl_hacker=map{/^[^*].*hack/&&s,_, ,g&s,$,\,,&print}%::'
> > > 
> > > The obvious improvements:
> > > 
> > > perl -le'@Just_another_Perl_hacker=map{/^[^*].*P/&&y,_,,&s/$/,/&print}%::'
> > 
> > -6:
> > 
> >   perl -le'@Just_another_Perl_hacker=map{y/_*/ /==3&&s/$/,/&print}%::'
> 
> why the trouble?
> 
>     perl -le'@Just_another_Perl_hacker=map{y/_*/ /==3&&print"$_,"}%::'
> 
> -2

      perl -le'print "Just another Perl hacker,"'

-21

Of course, minimizing character count is not the main goal of a JAPH.  :)

Ronald

P.S.  Please note that two other groups are in the recipients lists for
this thread.  Consider not indundating them with endless golf postings.

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