Re: [FWP] Recursion, anyone?

[yanick1@sympatico.ca]

On Thu, Apr 12, 2001 at 12:35:54AM +0200, Abigail wrote:
> > On Wed, Apr 11, 2001 at 04:49:14PM -0400, Yanick Champoux wrote:
> > #!/usr/bin/perl
> > @e=(A..Z,a..z,0..9,'-');@i=(0)x shift;$\="\n";while($f=1){print@e[@i];
> > $f&&((++$_>@e?$_:$f)=0)for@i;$f&&exit}

<snip Abigailistic wisdom>

Using those tricks and changing a shift to pop gives us:


#!/usr/bin/perl
@e=(A..Z,a..z,0..9,'-');@i=(0)x pop;{$f=print@e
[@i],"\n";$f&&((++$_>@e?$_:$f)=0)for@i;$f||redo}


Not as elegant as the other solutions, but it as a
certain... nauseous appeal to it. 

Joy,
`/anick

-- 
($a,$z)=(sort split'',$_=';/ t3&% ,/"tD/"(t,31)/"f')[0,-1];
s/./chr(ord($z)-ord($&)+ord$a)/eg;print

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