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

Re: [FWP] Quine, ontology, and Perl

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}%::'
--
Steve Lane <sml@zfx.com>

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