diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-30 05:28:47 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-30 05:28:47 +0100 |
| commit | c70b24cc54f3f4faedbbb7105b7844f8cc3294cc (patch) | |
| tree | 64b6875835b1ff85fc16c1c864cfc8a683c854f6 | |
| parent | 63ac7a86cb8872a50e141f502339b985c918cb6c (diff) | |
| download | perlweeklychallenge-club-c70b24cc54f3f4faedbbb7105b7844f8cc3294cc.tar.gz perlweeklychallenge-club-c70b24cc54f3f4faedbbb7105b7844f8cc3294cc.tar.bz2 perlweeklychallenge-club-c70b24cc54f3f4faedbbb7105b7844f8cc3294cc.zip | |
- Renamed method name.
| -rw-r--r-- | challenge-058/mohammad-anwar/perl/ch-2.pl | 4 | ||||
| -rw-r--r-- | challenge-058/mohammad-anwar/perl/ch-2a.pl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/challenge-058/mohammad-anwar/perl/ch-2.pl b/challenge-058/mohammad-anwar/perl/ch-2.pl index 58a8095c42..b283b69195 100644 --- a/challenge-058/mohammad-anwar/perl/ch-2.pl +++ b/challenge-058/mohammad-anwar/perl/ch-2.pl @@ -5,13 +5,13 @@ use warnings; my $H = [2, 6, 4, 5, 1, 3]; my $T = [1, 0, 2, 0, 1, 2]; -my $O = order_list({ H => $H, T => $T }); +my $O = order_lineup({ H => $H, T => $T }); print sprintf("\@H = (%s)\n", join(", ", @$H)); print sprintf("\@T = (%s)\n", join(", ", @$T)); print sprintf("\@O = (%s)\n", join(", ", @$O)); -sub order_list { +sub order_lineup { my ($args) = @_; my @H = @{$args->{H}}; diff --git a/challenge-058/mohammad-anwar/perl/ch-2a.pl b/challenge-058/mohammad-anwar/perl/ch-2a.pl index f77f9dd693..4c6b7f9c88 100644 --- a/challenge-058/mohammad-anwar/perl/ch-2a.pl +++ b/challenge-058/mohammad-anwar/perl/ch-2a.pl @@ -15,12 +15,12 @@ my $unit_tests = [ ]; foreach my $unit_test (@$unit_tests) { - is_deeply(order_list($unit_test->{in}), $unit_test->{out}); + is_deeply(order_lineup($unit_test->{in}), $unit_test->{out}); } done_testing; -sub order_list { +sub order_lineup { my ($args) = @_; my @H = @{$args->{H}}; |