Re: Blast from the past: "Triple Challenge Tight Coding"

[Ton Hospel]

In article <[EMAIL PROTECTED]>,
        Mtv Europe <[EMAIL PROTECTED]> writes:
> I'm sorry for flooding.
> 
>>> -p @$=a..z;pop@$ while@$>3&&!/@$[-4..-1]/x;$_ x=@$>3
>> that's better -
>> -p @$=a..z;pop@$ until@$<4||/@$[-4..-1]/x;$_ x=@$>3
> 
> -p @$=a..z;1until/@$[-4..-1]/x|!--$#$;$_ x=@$>3
Near the end it's going to match anyways, so you can do:
-p @z=a..z;$#z--until/@z[-4..-1]/x;$_ x=@z>3