Re: Block Search

$_='abbbcddddfegrgrgddeeeeedd';
print+(@b=sort{(()=$b=~/./g)<=>(()=$a=~/./g)}/((.)\2+)/cg)[0] #62
[download]

Cor! Like yer ring! ... HALO dammit! ... 'Ave it yer way! Hal-lo, Mister la-de-da. ... Like yer ring!

Comment on Re: Block Search Download Code

Replies are listed 'Best First'.
Re2: Block Search by blakem (Monsignor) on Oct 04, 2002 at 21:55 UTC
If you just want to find the longest sequence, a few tweaks will bring it down to.... 47 chars `# 1 2 3 4 #2345678901234567890123456789012345678901234567 print+(sort{$b=~y///c-$a=~y///c}/((.)\2*)/g)[0]` [download] -Blake	[reply] [d/l]