develooper Front page | perl.golf | Postings from August 2002

Re: Son of (-ugene's Cantor

Thread Previous | Thread Next
From:
Keith C. Ivey
Date:
August 17, 2002 11:07
Subject:
Re: Son of (-ugene's Cantor
Message ID:
3D5E5960.972.3CA62E95@localhost
Ton Hospel <perl-golf@ton.iguana.be> wrote:

> -l $_=$"x2**pop;s'$'/\\',print,s/(?<=\\)../$&^"\17|"/egwhile+s\^ \\
> (or replace the \17 by the hard char \x0f, though my emacs doesn't 
> like that)

One more stroke sh?aved:

-l $_=$"x2**pop;s'$'/\\',print,s/(?<=\\)../$&^aD^n8/egwhile+s\^ \\

-- 
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
Thread Previous | Thread Next

nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About