Re: [FWP] 4 Consecutive Letters

[Peter Scott <Peter@PSDT.com>]

At 03:11 PM 8/14/00 -0400, Ronald J Kimball wrote:
>On Mon, Aug 14, 2000 at 12:00:09PM -0700, Peter Scott wrote:
> > At 11:17 AM 8/14/00 -0700, I wrote:
> > >       perl -ne'/(.)(??{join"",map chr ord($1)+$_,1..3})/&&print'
> >
> >           perl -ne'/(.)(??{$a=$b=$1;$b++;++$a.++$b.++$b})/&&print'
>
>Why do you use $a and $b instead of just $a?

I tried, believe me :-)  None of the expressions I could think of would 
work.  It may be a bug that they don't work, or a bug that the one above 
does :-)

--
Peter Scott
Pacific Systems Design Technologies


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