diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-04-28 17:03:47 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-28 17:03:47 +0100 |
| commit | 9d59574e8be350125b0da3b472211f214dc16002 (patch) | |
| tree | 80b650be4d9a9b79e5a546d7877a27963752412e /challenge-005 | |
| parent | fba02498a4fb1475990082af4c0365d5ab567b14 (diff) | |
| parent | 8bc87b6f50c9f6c4f31879c93d3297306905380b (diff) | |
| download | perlweeklychallenge-club-9d59574e8be350125b0da3b472211f214dc16002.tar.gz perlweeklychallenge-club-9d59574e8be350125b0da3b472211f214dc16002.tar.bz2 perlweeklychallenge-club-9d59574e8be350125b0da3b472211f214dc16002.zip | |
Merge pull request #103 from mark-senn/branch-for-challenge-005
Changed join()
Diffstat (limited to 'challenge-005')
| -rw-r--r-- | challenge-005/mark-senn/perl6/ch-1.p6 | 4 | ||||
| -rw-r--r-- | challenge-005/mark-senn/perl6/ch-2.p6 | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/challenge-005/mark-senn/perl6/ch-1.p6 b/challenge-005/mark-senn/perl6/ch-1.p6 index 02c96d7e89..b80e27a333 100644 --- a/challenge-005/mark-senn/perl6/ch-1.p6 +++ b/challenge-005/mark-senn/perl6/ch-1.p6 @@ -26,7 +26,7 @@ my Array %hash; for (@word) { # The key for "family" is "amfily". - my $key = .comb(/./).sort.join(); + my $key = .comb(/./).sort.join; # Add the current word to the hash. %hash{$key}.push($_); } @@ -46,7 +46,7 @@ for (@word) my $word = @word.pick; # Convert $word to $key. -my $key = $word.comb(/./).sort.join(); +my $key = $word.comb(/./).sort.join; # Print the output. print "Challenge 1\n"; diff --git a/challenge-005/mark-senn/perl6/ch-2.p6 b/challenge-005/mark-senn/perl6/ch-2.p6 index 02c96d7e89..b80e27a333 100644 --- a/challenge-005/mark-senn/perl6/ch-2.p6 +++ b/challenge-005/mark-senn/perl6/ch-2.p6 @@ -26,7 +26,7 @@ my Array %hash; for (@word) { # The key for "family" is "amfily". - my $key = .comb(/./).sort.join(); + my $key = .comb(/./).sort.join; # Add the current word to the hash. %hash{$key}.push($_); } @@ -46,7 +46,7 @@ for (@word) my $word = @word.pick; # Convert $word to $key. -my $key = $word.comb(/./).sort.join(); +my $key = $word.comb(/./).sort.join; # Print the output. print "Challenge 1\n"; |