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 final result? if so, one byte off (with Ton's trick):
-p @$=a..z;pop@$ while@$>3&&!/@$[-4..-1]/x;$_ x=@$>3
> The challenge was to find words which contain four consecutive letters as
> they appear in the alphabet, i.e. understudy contains rstu.
---
Mtv Europe
