diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-22 23:08:54 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-22 23:08:54 +0100 |
| commit | d951cc21dafd2d22aa2748cee6637b47285b45e0 (patch) | |
| tree | cfe174e45fb7348ad2a9ac1b1bb862ea8f4e0574 | |
| parent | 13d2c6b5847a4be36c52db4cf6eaeee0c36e4129 (diff) | |
| download | perlweeklychallenge-club-d951cc21dafd2d22aa2748cee6637b47285b45e0.tar.gz perlweeklychallenge-club-d951cc21dafd2d22aa2748cee6637b47285b45e0.tar.bz2 perlweeklychallenge-club-d951cc21dafd2d22aa2748cee6637b47285b45e0.zip | |
- Renamed method name.
| -rw-r--r-- | challenge-057/mohammad-anwar/perl/ch-2.pl | 4 | ||||
| -rw-r--r-- | challenge-057/mohammad-anwar/perl/ch-2a.pl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/challenge-057/mohammad-anwar/perl/ch-2.pl b/challenge-057/mohammad-anwar/perl/ch-2.pl index 52281a6547..6e41246838 100644 --- a/challenge-057/mohammad-anwar/perl/ch-2.pl +++ b/challenge-057/mohammad-anwar/perl/ch-2.pl @@ -4,11 +4,11 @@ use strict; use warnings; my $words = [ "alphabet", "book", "carpet", "cadmium", "cadeau", "alpine" ]; -my $unique = find_unique_prefix($words); +my $unique = shortest_unique_prefix($words); print sprintf("[ %s ]\n", join(", ", @$unique)); -sub find_unique_prefix { +sub shortest_unique_prefix { my ($words) = @_; my $p = []; diff --git a/challenge-057/mohammad-anwar/perl/ch-2a.pl b/challenge-057/mohammad-anwar/perl/ch-2a.pl index 69b16a8817..1154a96ca5 100644 --- a/challenge-057/mohammad-anwar/perl/ch-2a.pl +++ b/challenge-057/mohammad-anwar/perl/ch-2a.pl @@ -15,12 +15,12 @@ my $unit_tests = [ foreach my $unit_test (@$unit_tests) { my $in = $unit_test->{in}; my $out = $unit_test->{out}; - is_deeply(find_unique_prefix($in), $out); + is_deeply(shortest_unique_prefix($in), $out); } done_testing; -sub find_unique_prefix { +sub shortest_unique_prefix { my ($words) = @_; my $p = []; |