Hello Andrew!
>> $_ x=/(.)((??{chr 1+ord$+})){3}/
>
> This seems OK if a word is defined as [a-z] (as in TPR02 and "even").
> However, it fails with unmatched [] on my /usr/dict/words for any
> word containing a Z, presumably because 3 chars following Z in
> ascii table are [ \ ].
>
> Though pr
En op 18 april 2002 sprak Mtv Europe:
> And how nice final result is, let me quote it again:
>
> $_ x=/(.)((??{chr 1+ord$+})){3}/
This seems OK if a word is defined as [a-z] (as in TPR02 and "even").
However, it fails with unmatched [] on my /usr/dict/words for any
word containing a Z, presumably
[1]}))*$/'
-Gary
> -Original Message-
> From: Mtv Europe [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, April 17, 2002 12:28 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Blast from the past: "Triple Challenge Tight Coding"
>
>
> Hello Ton!
>
> > N
Hello Ton!
> 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
Nothing to add, nothing to delete in this /@array[slice]/x variant.
And how nice final result is, let me quote it again:
$_ x=/(.)((??{chr 1+ord$+})){3}/
That strong style remi
[EMAIL PROTECTED] (Ton Hospel) writes:
> In article ,
> [EMAIL PROTECTED] (Ton Hospel) writes:
>> In article ,
>> [EMAIL PROTECTED] (Ton Hospel) writes:
>>> In article <[EMAIL PROTECTED]>,
>>> Mtv Europe <[EMAIL PROTECTED]
>
> You can make it work like this:
> -p $_ x=/(.)((??{++($0=$+)})){3}/
>
Any ideas on what accounts for the need to use $0 instead of any other var?
In article <[EMAIL PROTECTED]>,
Stefan `Sec` Zehl <[EMAIL PROTECTED]> writes:
> and, afaics the winning one:
>
> -n /(.)((??{chr 1+ord$+})){3}/&&print
Oh, I missed that one in the archives. Neat.
>
> which can (with todays golf knowledge) be shortened to:
>
> -p $_ x=/(.)((??{chr 1+or
On Tue, Apr 16, 2002 at 09:39:28PM +, Ton Hospel wrote:
> 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]
In article ,
[EMAIL PROTECTED] (Ton Hospel) writes:
> In article ,
> [EMAIL PROTECTED] (Ton Hospel) writes:
>> In article <[EMAIL PROTECTED]>,
>> Mtv Europe <[EMAIL PROTECTED]> writes:
>>> I'm sorry for flooding.
>>>
>
In article ,
[EMAIL PROTECTED] (Ton Hospel) writes:
> 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
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 t
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
Mtv Europe was too hasty:
> -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
Hello Ronald!
you wrote:
> I used /x in a solution to the 4 Consecutive Letters challenge on FWP in
> August 2000:
>
> perl -ne'for$i(97..119){print,last if/@{[map chr,$i..$i+3]}/x}'
>
> (Tim Ayers then reduced this to:
>
> perl -ne'@a=a..z;for$i(0..22){print,last if/@a[$i..$i+3]/x}'
is it fi
On Tue, Apr 16, 2002 at 11:05:29AM +1000, [EMAIL PROTECTED] wrote:
>
> BTW, I was blown away by Ton using the 'x' modifier.
> Never in my wildest dreams could I have imagined that
> this modifier would have been useful in golf!
I used /x in a solution to the 4 Consecutive Letters challenge on FW
yet another 22:
#!perl -p
$_ x="
$_"=~reverse
> -Original Message-
> From: Usenet News [mailto:[EMAIL PROTECTED]]On Behalf Of Ton Hospel
> Sent: Sunday, April 14, 2002 8:49 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Blast from the past: "Triple Challenge
En op 14 april 2002 sprak /-\ndrew:
> I think using =~ above is sound. If you think it unsound,
> please provide a counter-example word on which it fails.
En op 15 april 2002 sprak Piers Cawley:
> Is there a guarantee about what input is valid? If not
> then 'foo?' will break it.
It wasn't expli
[EMAIL PROTECTED] writes:
> En op 14 april 2002 sprak /-\ndrew:
>> While researching tpr02, I stumbled across perhaps the earliest
>> example of an organised golf competition:
>
> http://groups.google.com/groups?hl=en&selm=37DD324C.A984C7A9%40wins.uva.nl
> http://groups.google.com/groups?hl=en&se
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] writes:
> En op 14 april 2002 sprak /-\ndrew:
>> While researching tpr02, I stumbled across perhaps the earliest
>> example of an organised golf competition:
>
> http://groups.google.com/groups?hl=en&selm=37DD324C.A984C7A9%40wins.uva.nl
>
En op 14 april 2002 sprak /-\ndrew:
> While researching tpr02, I stumbled across perhaps the earliest
> example of an organised golf competition:
http://groups.google.com/groups?hl=en&selm=37DD324C.A984C7A9%40wins.uva.nl
http://groups.google.com/groups?hl=en&selm=37DE7E5D.1C172E3E%40wins.uva.nl
> The specification was loose as a goose, there was no test program
> and no updated leaderboard. The 7 competitors were: Abigail, Steven
> Alexander, David Alan Black, Neko, Gareth Rees, Steven de Rooij and
> James Wetterau. Hole 1 was won by Gareth Rees, Hole 2 by Steven
> Alexander, Hole 3 by t
21 matches
Mail list logo