Front page | perl.golf |
Postings from August 2002
In article <20020817163615.GA1161@jerakeen.zevenwouden.nl>, Eugene van der Pijll <pijll@gmx.net> writes: > 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 Im unsure of what the point is of that weird pop setup anyways. Why not $_=$"x(1<<pop)."/\\ ";print,s/(?<=\\)../$&^v15."|"/eg,s^$^/\\^while+s\^ \\ Ok, so it differs for n=0, but i find this one in fact more logical.Thread Previous | Thread Next