From 341791d2992a2ccab54cd32bbf5d1cf6272582ea Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 26 May 2020 21:56:15 +0100
Subject: - Further improvement.

---
 challenge-062/mohammad-anwar/perl/ch-1.pl  | 4 ++--
 challenge-062/mohammad-anwar/perl/ch-1a.pl | 4 ++--
 challenge-062/mohammad-anwar/raku/ch-1.p6  | 2 +-
 challenge-062/mohammad-anwar/raku/ch-1a.p6 | 2 +-
 4 files changed, 6 insertions(+), 6 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 "@", @$_;
         }
     }
 
diff --git a/challenge-062/mohammad-anwar/raku/ch-1.p6 b/challenge-062/mohammad-anwar/raku/ch-1.p6
index f79c2ded4d..decadce579 100644
--- a/challenge-062/mohammad-anwar/raku/ch-1.p6
+++ b/challenge-062/mohammad-anwar/raku/ch-1.p6
@@ -29,7 +29,7 @@ sub sort-data(Str $file, Bool $unique?) {
         for %source.sort({ $^a.value.lc cmp $^b.value.lc || $^a.key cmp $^b.key }) -> $k {
             my $_k = $k.keys;
             my $_v = $k.values;
-            $sorted.push: sprintf("%s@%s", $_k, $_v);
+            $sorted.push: ($_k, $_v).join("@");
         }
     }
     else {
diff --git a/challenge-062/mohammad-anwar/raku/ch-1a.p6 b/challenge-062/mohammad-anwar/raku/ch-1a.p6
index 5fc2a512bf..3e8fe0b913 100644
--- a/challenge-062/mohammad-anwar/raku/ch-1a.p6
+++ b/challenge-062/mohammad-anwar/raku/ch-1a.p6
@@ -42,7 +42,7 @@ sub sort-data(Str $file, Bool $unique?) {
         for %source.sort({ $^a.value.lc cmp $^b.value.lc || $^a.key cmp $^b.key }) -> $k {
             my $_k = $k.keys;
             my $_v = $k.values;
-            $sorted.push: sprintf("%s@%s", $_k, $_v);
+            $sorted.push: ($_k, $_v).join("@");
         }
     }
     else {
-- 
cgit