Re: [FWP] 4 Consecutive Letters (generalized)

[Tom Moertel <tom-list-fwp@moertel.com>]

Tom Moertel wrote:
> 
> perl -ne'((join"",map{$b=$a;($a=ord)-$b-1&&"x"}split//)=~/000/)&&print'

Shorter version:

  perl -ne'((join"",map{$b=$a;($a=ord)-$b-1&&2}split//)=~/000/)&&print'

Any further reductions?

Cheers,
Tom

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe