diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-28 16:40:48 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-28 16:40:48 +0000 |
| commit | 48f1c6f8ca8133b8e461c03004ca9fd3977ac6b0 (patch) | |
| tree | c2e2d8518082db0dd642a3e2b71255a969dc6268 | |
| parent | 913e39f2a2364aaffe85ab4b4fe0fd70af8107f0 (diff) | |
| download | perlweeklychallenge-club-48f1c6f8ca8133b8e461c03004ca9fd3977ac6b0.tar.gz perlweeklychallenge-club-48f1c6f8ca8133b8e461c03004ca9fd3977ac6b0.tar.bz2 perlweeklychallenge-club-48f1c6f8ca8133b8e461c03004ca9fd3977ac6b0.zip | |
- Rollback changes.
| -rw-r--r-- | challenge-053/mohammad-anwar/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-053/mohammad-anwar/perl/ch-2.pl b/challenge-053/mohammad-anwar/perl/ch-2.pl index 9baabbd623..6e1224baf2 100644 --- a/challenge-053/mohammad-anwar/perl/ch-2.pl +++ b/challenge-053/mohammad-anwar/perl/ch-2.pl @@ -3,7 +3,7 @@ use strict; use warnings; -use Algorithm::Combinatorics qw(variations_with_repetition); +use Algorithm::Combinatorics qw(combinations); my $count = $ARGV[0] // 2; die "ERROR: Invalid count $count.\n" @@ -17,7 +17,7 @@ if ($count == 1) { exit; } -my $iter = variations_with_repetition($chars, $count); +my $iter = combinations($chars, $count); my $char_sets = []; while (my $char = $iter->next) { |