Andrew Savige schreef:
> Aristotle golfed: 
> >     $_=$x;@lines=(/^.*/mg)x+length;
> 
> Against my better judgment, I will have a go at golfing this:
> 
> $_=$x;@l=(/^.*/mg)x/./s

This clobbers $_. Not nice for the rest of the program. Correct is:

  {local$_=$x;@l=(/^.*/mg)x/./s}

or

  @l=(/^.*/mg)x/./sfor$x

Unfortunately, you had "use strict" in your first post, and neither of
these are use-strict safe.

(-ugene

-- 
Call a program "elegant" if no smaller program produces the same output. 
 -- (, _| (haitin

Reply via email to