simplify loops

1 files changed, 3 insertions, 7 deletions

diff --git a/challenge-033/rnuttall/perl6/ch-01.p6 b/challenge-033/rnuttall/perl6/ch-01.p6
index f10e4cba2c..b2eb228afb 100644
--- a/challenge-033/rnuttall/perl6/ch-01.p6
+++ b/challenge-033/rnuttall/perl6/ch-01.p6
@@ -7,12 +7,8 @@ sub MAIN(*@files) {
     #Task 1 - a Test of Bag and Bag addition
     my Bag $counts = bag { 'a' .. 'z' => 0 };
 
-    say @files;
     # Create a bag for each file and add counts using Bag addition ⊎ or (+)
-    for @files -> $file {
-        $counts ⊎= $file.IO.slurp.lc.comb.Bag;
-    }
-    for 'a' .. 'z' -> $letter {
-        say "$letter: $counts{$letter}";
-    }
+    $counts ⊎= $_.IO.slurp.lc.comb.Bag for @files;
+
+    say "$_: $counts{$_}"              for 'a' .. 'z';
 }