diff options
| author | holli-holzer <holli.holzer@googlemail.com> | 2019-10-28 19:47:42 +0100 |
|---|---|---|
| committer | holli-holzer <holli.holzer@googlemail.com> | 2019-10-28 19:51:11 +0100 |
| commit | cd0b4c31afe5649d540286600ae5353e66459f06 (patch) | |
| tree | 886fc1c1a65a2ea5a2f8573203bff659f26971b0 | |
| parent | ddc3f01b4574cc77300e6efae902e76bab6b1f59 (diff) | |
| parent | 7f57699a91617338e14a979c3bba80688682ee8e (diff) | |
| download | perlweeklychallenge-club-cd0b4c31afe5649d540286600ae5353e66459f06.tar.gz perlweeklychallenge-club-cd0b4c31afe5649d540286600ae5353e66459f06.tar.bz2 perlweeklychallenge-club-cd0b4c31afe5649d540286600ae5353e66459f06.zip | |
Merge branch 'master' of https://github.com/holli-holzer/perlweeklychallenge-club
| -rw-r--r-- | challenge-032/markus-holzer/perl6/ch-1-and-2.pl6 | 28 | ||||
| -rw-r--r-- | challenge-032/markus-holzer/perl6/simpsons.txt | 8 |
2 files changed, 18 insertions, 18 deletions
diff --git a/challenge-032/markus-holzer/perl6/ch-1-and-2.pl6 b/challenge-032/markus-holzer/perl6/ch-1-and-2.pl6 index 0941012c55..f1eb4d25dc 100644 --- a/challenge-032/markus-holzer/perl6/ch-1-and-2.pl6 +++ b/challenge-032/markus-holzer/perl6/ch-1-and-2.pl6 @@ -2,25 +2,25 @@ my %*SUB-MAIN-OPTS = :named-anywhere; multi sub MAIN( *@files, Bool :$csv, Bool :$graph, Bool :$sort-by-label ) { - CATCH { return .message.say } + CATCH { return .message.say } - my @words = @files - ?? @files.map( |*.IO.lines ) - !! |$*ARGFILES.lines; + my @words = @files + ?? @files.map( |*.IO.lines ) + !! |$*ARGFILES.lines; - my $weights = Bag.new( @words ); - my $lngst = max $weights.keys.map( *.chars ); + my $weights = Bag.new( @words ); + my $lngst = max $weights.keys.map( *.chars ); - my $format = $csv ?? "%s, %s" !! + my $format = $csv ?? "%s, %s" !! $graph ?? "%{$lngst}s | %s " !! "%-{$lngst}s %s " ; - my &sorter = $sort-by-label - ?? { $^a.key cmp $^b.key } - !! { $^b.value <=> $^a.value }; + my &sorter = $sort-by-label + ?? { $^a.key cmp $^b.key } + !! { $^b.value <=> $^a.value }; - .say for $weights - .sort( &sorter ) - .map({ .key => $graph ?? "#" x .value !! .value }) - .map({ sprintf $format, .key, .value }); + .say for $weights + .sort( &sorter ) + .map({ .key => $graph ?? "#" x .value !! .value }) + .map({ sprintf $format, .key, .value }); }
\ No newline at end of file diff --git a/challenge-032/markus-holzer/perl6/simpsons.txt b/challenge-032/markus-holzer/perl6/simpsons.txt index bb3179d47e..fafebd89f4 100644 --- a/challenge-032/markus-holzer/perl6/simpsons.txt +++ b/challenge-032/markus-holzer/perl6/simpsons.txt @@ -1,10 +1,10 @@ -Marge -Homer +Bart Bart Maggie +Marge Homer Bart Homer +Bart Marge -Homer -Bart
\ No newline at end of file +Marge
\ No newline at end of file |