diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-16 09:45:19 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-16 09:45:19 +0100 |
| commit | cb9aa268345e2514562f7d033902f9e8d6d54f2a (patch) | |
| tree | 48a3248ea563311c148c87826513068a97d6e76a | |
| parent | 4d663b4365797ec97c0ebdbf3a5e6db171b149c5 (diff) | |
| download | perlweeklychallenge-club-cb9aa268345e2514562f7d033902f9e8d6d54f2a.tar.gz perlweeklychallenge-club-cb9aa268345e2514562f7d033902f9e8d6d54f2a.tar.bz2 perlweeklychallenge-club-cb9aa268345e2514562f7d033902f9e8d6d54f2a.zip | |
- Further tidied up.
| -rw-r--r-- | challenge-060/mohammad-anwar/perl/ch-2a.pl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/challenge-060/mohammad-anwar/perl/ch-2a.pl b/challenge-060/mohammad-anwar/perl/ch-2a.pl index 2d1eeb261e..fce05f4d4a 100644 --- a/challenge-060/mohammad-anwar/perl/ch-2a.pl +++ b/challenge-060/mohammad-anwar/perl/ch-2a.pl @@ -6,11 +6,7 @@ use warnings; use Test::More; use Algorithm::Combinatorics qw(variations_with_repetition); -my @n = (0, 1, 2, 5); -my $x = 2; -my $y = 21; - -my @numbers = find_numbers(\@n, $x, $y); +my @numbers = find_numbers([0, 1, 2, 5], 2, 21); is (join(", ", @numbers), "10, 11, 12, 15, 20"); done_testing; @@ -19,7 +15,7 @@ sub find_numbers { my ($n, $x, $y) = @_; my @numbers = (); - foreach my $number (variations_with_repetition(\@n, $x)) { + foreach my $number (variations_with_repetition($n, $x)) { $number = join("", @$number) + 0; next unless ((length($number) == $x) && ($number < $y)); push @numbers, $number; |