Re: simple golf for fun

[email protected] (Ton Hospel) Wed, 17 Jan 2007 13:09:30 +0000 (UTC)
Newsgroups gmane.comp.lang.perl.golf
Organization lunix confusion services
Message-ID <[email protected]>
In article <[email protected]>,
	Daniel Tiefnig <[email protected]> writes:
> If you're free to output whatever you want on mismatch, you can also
> just omit the "\G".
> 
> -p0 s/(.*)(.*
> )(?=\1.\2|$)//g
> 
> Will print all lines that preceed invalid changes. (As requested!) One
> can create files that will make some problems, though. If a line does
> not add at least one character, strange things may happen. But I think
> it will always output something.
> And until someone proves the contrary, I consider this being the
> shortest solution so far. :o)
> 

Correct. It outputs at least the first char of a non-extendable line or
the newline after it if that line is empty.

By the way, what these programs don't check is if the first line is a
single character. The challenge statement is unclear on if the first
line should be seen as an extension of a ghost empty line or not.