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

Re: Son of (-ugene's Cantor

Thread Previous | Thread Next
From:
Eugene van der Pijll
Date:
August 17, 2002 09:40
Subject:
Re: Son of (-ugene's Cantor
Message ID:
20020817163615.GA1161@jerakeen.zevenwouden.nl
En op 18 augustus 2002 sprak Andrew.Savige@ir.com:
> $_=$"x((1|1<<pop)-1)."/\\
> ";print,s,(?<=\\)..,$&^v15.'|',eg,s,$,/\\,while+s+^ ++
> 
> I have forgotten how to do Ton's prefix minus 1 trick,
> which might be useful here.

It is.

$_=$"x~-(1|1<<pop)."/\\
";print,s/(?<=\\)../$&^v15.'|'/eg,s^$^/\\^while+s\^ \\

(-ugene
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