diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-05-17 14:57:12 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-05-17 14:57:12 +0100 |
| commit | 457bd04c36f49eadcd63cd6d201a96836b099f6d (patch) | |
| tree | d0f4327af732c2ae5a8ff856a28a9d4116bf4829 /challenge-008 | |
| parent | fc3ffd2e031dc6ea694d0420e7395c4fb82a9af1 (diff) | |
| parent | d8fc09b123e4727a4558554b1ffd5dc921cd2ea8 (diff) | |
| download | perlweeklychallenge-club-457bd04c36f49eadcd63cd6d201a96836b099f6d.tar.gz perlweeklychallenge-club-457bd04c36f49eadcd63cd6d201a96836b099f6d.tar.bz2 perlweeklychallenge-club-457bd04c36f49eadcd63cd6d201a96836b099f6d.zip | |
Merge pull request #155 from uzluisf/master
Add minor correction
Diffstat (limited to 'challenge-008')
| -rw-r--r-- | challenge-008/uzluisf/perl6/ch-2.p6 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-008/uzluisf/perl6/ch-2.p6 b/challenge-008/uzluisf/perl6/ch-2.p6 index 5eb95dde4f..c69ad6543d 100644 --- a/challenge-008/uzluisf/perl6/ch-2.p6 +++ b/challenge-008/uzluisf/perl6/ch-2.p6 @@ -10,9 +10,8 @@ return the modified lines. =end comment sub center( *@strings --> List ) { - my @sorted = @strings.sort({.chars}); - my $max-len = @sorted.tail.chars; - return @sorted.map({ + my $max-len = @strings.sort({.chars}).tail.chars; + return @strings.map({ ( ' ' x (.chars - $max-len).abs div 2, $_).join }).list; } |