diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-27 03:21:30 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-27 03:21:30 -0600 |
| commit | ba5a51a6f5a32cf52e8a0b12fbb3d787f7dbd994 (patch) | |
| tree | 27fc399b75236cf65a8538f14bd9909c232628c4 | |
| parent | 84502965d2be5006cd6b6e2ff431bae59597ee52 (diff) | |
| download | perlweeklychallenge-club-ba5a51a6f5a32cf52e8a0b12fbb3d787f7dbd994.tar.gz perlweeklychallenge-club-ba5a51a6f5a32cf52e8a0b12fbb3d787f7dbd994.tar.bz2 perlweeklychallenge-club-ba5a51a6f5a32cf52e8a0b12fbb3d787f7dbd994.zip | |
Challenge 132 Solutions (Raku)
| -rw-r--r-- | challenge-132/mark-anderson/raku/ch-2.raku | 28 |
1 files changed, 12 insertions, 16 deletions
diff --git a/challenge-132/mark-anderson/raku/ch-2.raku b/challenge-132/mark-anderson/raku/ch-2.raku index 9f7976f138..215b866c0e 100644 --- a/challenge-132/mark-anderson/raku/ch-2.raku +++ b/challenge-132/mark-anderson/raku/ch-2.raku @@ -1,22 +1,18 @@ #!/usr/bin/env raku -my @players-age = ( - < 20 Alex >, - < 28 Joe >, - < 38 Mike >, - < 18 Alex >, - < 25 David >, - < 18 Simon >, -); +my @players-age = < 20 Alex >, + < 28 Joe >, + < 38 Mike >, + < 18 Alex >, + < 25 David >, + < 18 Simon >; -my @players-name = ( - < Alex Stewart >, - < Joe Root >, - < Mike Gatting >, - < Joe Blog >, - < Alex Jones >, - < Simon Duane >, -); +my @players-name = < Alex Stewart >, + < Joe Root >, + < Mike Gatting >, + < Joe Blog >, + < Alex Jones >, + < Simon Duane >; my %a = @players-age.classify({ .[1] }, :as{ .[0] }); my %n = @players-name.classify({ .[0] }, :as{ .[1] }); |