Re: simple golf for fun

[email protected] ((Ton Hospel)) Tue, 16 Jan 2007 20:16:06 +0000 (UTC)
Newsgroups perl.golf
Organization lunix confusion services
Message-ID <[email protected]>
In article <[email protected]>,
	Phil Carmody <[email protected]> writes:
> In response to Phil Carmody <[email protected]> saying:
>> > The simple version of the task is to verify that each line of a file is the
>> > insertion of one character somewhere (maybe at the start or the end) into
>> > the prior line.
> 
> --- Ton Hospel <[email protected]> wrote:
> <<<
> 
> -p0 $_ x=/^((.*)(.*)
> (?=\2.\3
>|$))*$/
> 
>>>>
> 
> Nice indeed. But would this count as a -4 Magoo?
> 
> -p0 s/^((.*)(.*)
> (?=\2.\3
>|$))*$//
> 
Absolutely