Re: [FWP] 4 Consecutive Letters

[Peter Scott <Peter@PSDT.com>]

> > Ronald's first solution seems to be able to be modified to be shorter:
> >
> >      perl -ne'@a=a..z;for$i(0..22){print,last if/@a[$i..$i+3]/x}'

        perl -ne'/(.)(??{join"",map chr ord($1)+$_,1..3})/&&print'
--
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