Re: Keeping a Count in foreach

Comment on Re: Keeping a Count in foreach Download Code
Re^2: Keeping a Count in foreach by particle (Vicar) on Jun 17, 2002 at 19:04 UTC
if you're going to obfuscate it, why not `map print(($.\|\|1..$.&&0)-1," $_$/"),@s;` [download] and be done with it? {shudder} ~Particle accelerates	[reply] [d/l] [select]
Re: Re^2: Keeping a Count in foreach by BUU (Prior) on Jun 17, 2002 at 20:36 UTC
10pts for using map in a void context! (loses 2000 xp)	[reply]
Re^4: Keeping a Count in foreach by particle (Vicar) on Jun 17, 2002 at 22:36 UTC
yeah, nasty code. i should probably give an ~~english~~`English` version as contrast. `use English; sub ONE() {1} sub ZERO() {0} for my $each (@strings) { print( ( ( $INPUT_LINE_NUMBER or ONE ) .. ( $INPUT_LINE_NUMBER and ZERO ) ) - ONE, ' ', $each, $INPUT_RECORD_SEPARATOR, ); }` [download] ~Particle accelerates	[reply] [d/l] [select]
Re: Re^4: Keeping a Count in foreach by YuckFoo (Abbot) on Jun 18, 2002 at 17:40 UTC
Re^6: Keeping a Count in foreach by particle (Vicar) on Jun 18, 2002 at 18:17 UTC
Some notes below your chosen depth have not been shown here
Re^2: Keeping a Count in foreach by Anonymous Monk on May 10, 2012 at 03:41 UTC
Hi can you please explain this syntax\|1..$.&&0)-1 , i tried to get it but i am unable to understand it.	[reply]
Re^2: Keeping a Count in foreach by Anonymous Monk on May 10, 2012 at 03:41 UTC
Hi can you please explain this syntax ($.\|\|1..$.&&0)-1 , i tried to get it but i am unable to understand it.	[reply]