Re: [FWP] string increment

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

On Mon, Apr 24, 2000 at 05:39:36AM +0200, Arjen Wiersma wrote:
> 
> > > perl -e '@a=qw(a a a a); for($i=$#a;-1 < $i; $i--) {
> > > for($x=0;$x<25;$x++) {$b = ord($a[$i]); $a[$i] = chr(++$b); print
> > > @a; print "\n"; } }'
> > > 
> > > since it's 5 am and my mind went to bed at about 3 this morning I'm sure
> > > there are faster ways of doing this.. maybe even get caps into it too..
> > > 
> > > Any ideas?
> > 
> > perl -le 'print for "aaaa" .. "zzzz"'
> > 
> > 
> > Magical string increment, you know.
> > 
> > 
> > Ronald
> > 
> 
> Heh, yeah.. I came up with that too, but that increments each character
> with the entire alphabet to each character. If you look at the code I
> wrote it goes it just increments the line, forming the alphabet for
> each character in the line. One by one. 

Oh, your sample output wasn't specific enough.  :)


> I was wondering if that could be speeded up?

How about:

perl -le '$_ = "aaaa"; for ($i=length($_)-1; $i>=0; --$i) {
         for $c ("a".."z") { substr($_,$i,1) = $c; print } }'



Ronald

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