diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-26 19:53:17 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-26 19:53:17 +0100 |
| commit | 98b9c733b5f45d241432589524a9be181d2fcf2c (patch) | |
| tree | 75d4ffa4fefb5536f6d51c05c8caab6a2899af1d /challenge-062 | |
| parent | 0fcb0c88ec1263d030bc4df66f98ddaea13f7566 (diff) | |
| download | perlweeklychallenge-club-98b9c733b5f45d241432589524a9be181d2fcf2c.tar.gz perlweeklychallenge-club-98b9c733b5f45d241432589524a9be181d2fcf2c.tar.bz2 perlweeklychallenge-club-98b9c733b5f45d241432589524a9be181d2fcf2c.zip | |
- Fixed Perl solutions.
Diffstat (limited to 'challenge-062')
| -rw-r--r-- | challenge-062/mohammad-anwar/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-062/mohammad-anwar/perl/ch-1a.pl | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/challenge-062/mohammad-anwar/perl/ch-1.pl b/challenge-062/mohammad-anwar/perl/ch-1.pl index d3d1e3c07b..030b543483 100644 --- a/challenge-062/mohammad-anwar/perl/ch-1.pl +++ b/challenge-062/mohammad-anwar/perl/ch-1.pl @@ -41,7 +41,7 @@ sub sort_data { } } else { - foreach (reverse sort { lc $a->[0] cmp lc $b->[0] } @source) { + foreach (reverse sort { lc $a->[0] cmp lc $b->[0] || lc $a->[1] cmp $b->[1] } @source) { push @$sorted, sprintf("%s@%s", $_->[0], $_->[1]); } } diff --git a/challenge-062/mohammad-anwar/perl/ch-1a.pl b/challenge-062/mohammad-anwar/perl/ch-1a.pl index a4f06dae23..3e4f911fdc 100644 --- a/challenge-062/mohammad-anwar/perl/ch-1a.pl +++ b/challenge-062/mohammad-anwar/perl/ch-1a.pl @@ -8,8 +8,8 @@ use Test::Deep; is_deeply ( sort_data('data.txt'), [ 'user@alpha.example.org', - 'rjt@CPAN.org', 'rjt@cpan.org', + 'rjt@CPAN.org', 'Name@example.org', 'name@example.org', ], @@ -57,7 +57,7 @@ sub sort_data { } } else { - foreach (reverse sort { lc $a->[0] cmp lc $b->[0] } @source) { + foreach (reverse sort { lc $a->[0] cmp lc $b->[0] || $a->[1] cmp $b->[1] } @source) { push @$sorted, sprintf("%s@%s", $_->[0], $_->[1]); } } |