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

Re: Son of (-ugene's Cantor

Thread Previous | Thread Next
From:
Mtv Europe
Date:
August 17, 2002 10:55
Subject:
Re: Son of (-ugene's Cantor
Message ID:
20020817172255.28546.qmail@onion.perl.org
Hello!

perl-golf@ton.iguana.be (Ton Hospel) wrote:
> $_=$"x(1<<pop)."/\\
> ";print,s/(?<=\\)../$&^v15."|"/eg,s^$^/\\^while+s\^ \\

$_=$"x(1<<pop).$/;print,s/(?<=\\)../$&^"\17|"/egwhile+s^$^/\\^,s\^ \\
$_=$"x(1<<pop);print,s/(?<=\\)../$&^"\17|"/egwhile+s^\n?$^/\\\n^,s\^ \\
$_=$"x(1<<pop).$/;print,s/(?<=\\)../$&^"\17|"/egwhile+s-^ (.*)-$+/\\-

if keys allowed:
-lX $_=$"x2**pop;print,s/(?<=\\)../$&^"\17|"/egwhile+s*$*/\\**s+^ ++
-lX $_=$"x2**pop;print,s/(?<=\\)../$&^"\17|"/egwhile+s-^ (.*)-$+/\\-

---
Mtv Europe
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