Re: simple golf for fun

--- Juho Snellman <[email protected]> wrote:
> Phil Carmody <[email protected]> writes:
> > -p0 s/^((.*)(.*)
> > (?=\2.\3
> > |$))*$//
> 
> Assuming the last line is also newline-terminated:

Fair assumption

> -n0 a//^((.*)(.*
> )(?=\2.\3|$))*$/

Kiitos, Juho.

That's gone beyond my perl ken! Was this the expected failure outcome?

$ echo -e "1\n12\n173\n" | perl -n0 -e 'a//^((.*)(.*
)(?=\2.\3|$))*$/'
Illegal division by zero at -e line 1, <> chunk 1.

Unfortunately it looks like it fails to even finish my 2400-line file - what's
its Big-Oh? :

$ time perl -n0 -e 'a//^((.*)(.*
)(?=\2.\3|$))*$/' < delsieve.log

<fx: kuolemanhiljaisuus />

Thanks for the interesting, and horribly short, contribution though.
Phil





()  ASCII ribbon campaign      ()    Hopeless ribbon campaign
/\    against HTML mail        /\  against gratuitous bloodshed

[stolen with permission from Daniel B. Cristofani]


 
____________________________________________________________________________________
Food fight? Enjoy some healthy debate 
in the Yahoo! Answers Food & Drink Q&A.
http://answers.yahoo.com/dir/?link=list&sid=396545367