Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Character Combinations

by antirice (Priest)
on Aug 23, 2003 at 01:33 UTC ( #285974=note: print w/replies, xml ) Need Help??


in reply to Character Combinations

And now for my attempt to reinvent this wheel:

my @alpha = ('a'..'c'); my @counter = (); sub get_next { for (@counter) { $_++; last if ($_ <= $#alpha); $_ = 0; } push @counter,0 unless grep($_>0,@counter); return join"",map($alpha[$_],@counter); } for ($_ = get_next();4 > @counter ;$_ = get_next()) { print "$_ "; } __DATA__ output: a b c aa ba ca ab bb cb ac bc cc aaa baa caa aba bba cba aca b +ca cca aab bab cab abb bbb cbb acb bcb ccb aac bac cac abc bbc cbc ac +c bcc ccc

Of course, maybe it was a silly try. But still, I like it :)

Hope this helps.

antirice    
The first rule of Perl club is - use Perl
The
ith rule of Perl club is - follow rule i - 1 for i > 1

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://285974]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (2)
As of 2021-10-23 13:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (88 votes). Check out past polls.

    Notices?