Re: Getting combinations from a number's digits

This solution is based on the combinational powers of glob()


my $txt = '123';

local $"=',';
my @array = glob( "{@{[ split(//,$txt)]}}" x length($txt) );

print Dumper \@array ;
[download]

Comment on Re: Getting combinations from a number's digits Download Code

Replies are listed 'Best First'.
Re^2: Getting combinations from a number's digits by Zaxo (Archbishop) on Jul 10, 2006 at 01:28 UTC
That glob will also produce 111, 122, etc. Combinations without replacement are needed. After Compline, Zaxo	[reply]
Re^2: Getting combinations from a number's digits by mikasue (Friar) on Jul 10, 2006 at 01:13 UTC
um... I learned something. glob() is an actual module. I thought you were using it like we use blah or foo. Thanks, but does this use of glob create the 6 combinations for him? It seems the 6 combinations are hardcoded and he just want to store them somewhere for later use.	[reply]