diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-26 21:56:15 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-26 21:56:15 +0100 |
| commit | 341791d2992a2ccab54cd32bbf5d1cf6272582ea (patch) | |
| tree | 89865072b8e621419070a3a7e7aa46e7abacec8b /challenge-062/mohammad-anwar/perl | |
| parent | b6f9cf067774675ef18c7ea376963f943a531624 (diff) | |
| download | perlweeklychallenge-club-341791d2992a2ccab54cd32bbf5d1cf6272582ea.tar.gz perlweeklychallenge-club-341791d2992a2ccab54cd32bbf5d1cf6272582ea.tar.bz2 perlweeklychallenge-club-341791d2992a2ccab54cd32bbf5d1cf6272582ea.zip | |
- Further improvement.
Diffstat (limited to 'challenge-062/mohammad-anwar/perl')
| -rw-r--r-- | challenge-062/mohammad-anwar/perl/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-062/mohammad-anwar/perl/ch-1a.pl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/challenge-062/mohammad-anwar/perl/ch-1.pl b/challenge-062/mohammad-anwar/perl/ch-1.pl index 6bcfd79c90..396cbda970 100644 --- a/challenge-062/mohammad-anwar/perl/ch-1.pl +++ b/challenge-062/mohammad-anwar/perl/ch-1.pl @@ -37,12 +37,12 @@ sub sort_data { my $sorted = []; if ($flag) { foreach (sort { lc $source->{$a} cmp lc $source->{$b} } sort keys %$source) { - push @$sorted, sprintf("%s@%s", $_, $source->{$_}); + push @$sorted, join "@", $_, $source->{$_}; } } else { foreach (reverse sort { lc $a->[0] cmp lc $b->[0] || lc $a->[1] cmp $b->[1] } @source) { - push @$sorted, sprintf("%s@%s", $_->[0], $_->[1]); + push @$sorted, join "@", @$_; } } diff --git a/challenge-062/mohammad-anwar/perl/ch-1a.pl b/challenge-062/mohammad-anwar/perl/ch-1a.pl index 7a9920e902..76a0591204 100644 --- a/challenge-062/mohammad-anwar/perl/ch-1a.pl +++ b/challenge-062/mohammad-anwar/perl/ch-1a.pl @@ -53,12 +53,12 @@ sub sort_data { my $sorted = []; if ($flag) { foreach (sort { lc $source->{$a} cmp lc $source->{$b} } sort keys %$source) { - push @$sorted, sprintf("%s@%s", $_, $source->{$_}); + push @$sorted, join "@", $_, $source->{$_}; } } else { foreach (reverse sort { lc $a->[0] cmp lc $b->[0] || $a->[1] cmp $b->[1] } @source) { - push @$sorted, sprintf("%s@%s", $_->[0], $_->[1]); + push @$sorted, join "@", @$_; } } |