In article <[EMAIL PROTECTED]>, Eugene van der Pijll <[EMAIL PROTECTED]> writes: > En op 18 augustus 2002 sprak [EMAIL PROTECTED]: >> $_=$"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.
