Front page | perl.golf |
Postings from August 2002
En op 17 augustus 2002 sprak Eugene van der Pijll: > En op 18 augustus 2002 sprak Andrew.Savige@ir.com: > > $_=$"x((1|1<<pop)-1)."/\\ > > ";print,s,(?<=\\)..,$&^v15.'|',eg,s,$,/\\,while+s+^ ++ > > $_=$"x~-(1|1<<pop)."/\\ > ";print,s/(?<=\\)../$&^v15.'|'/eg,s^$^/\\^while+s\^ \\ Actually, I think you don't need to do that. This works too, even for argument 0. And please do not use double quotes where single quotes work just as well: $_=$"x(1<<pop).'/\ ';print,s/(?<=\\)../$&^v15.'|'/eg,s^$^/\\^while+s\^ \\ (-ugeneThread Previous | Thread Next