Fix up a few more post-GLR issues

Author: softmoth

categories/best-of-rosettacode/balanced-brackets.pl

@@ -67,7 +67,7 @@ =head2 FP oriented
 {
     sub balanced($s) {
         .none < 0 and .[*-1] == 0
-        given [\+] '\\' «leg« $s.comb;
+        given [\+] '\\' «leg« $s.comb.cache;
     }
 
     my $s = <[ ]>.roll($n*2).join;

categories/wsg/advanced-2008/event001-eric256.pl

@@ -114,7 +114,7 @@
 
 sub MAIN(Bool :$verbose = False) {
     my $input-file = $*SPEC.catdir($*PROGRAM-NAME.IO.dirname, "wordlist.txt");
-    my %dict = ( ($input-file.IO.slurp.split("\n").grep: {.chars == 7}) X 1);
+    my %dict = (($input-file.IO.lines.grep: {.chars == 7}) X 1).flat;
 
     my %digits = (
         2 => (<a b c>),

categories/wsg/advanced-2008/event005-eric256.pl

@@ -149,7 +149,7 @@ (Str :$pw = "", Bool :$verbose = False)
     my $password = $pw || prompt("Enter password to test: ");
 
     my $input-file = $*SPEC.catdir($*PROGRAM-NAME.IO.dirname, "wordlist.txt");
-    my %dict = ( ($input-file.IO.slurp.split("\n").grep: {.chars > 6}) X 1);
+    my %dict = (($input-file.IO.lines.grep: {.chars > 6}) X 1).flat;
 
     say "Testing strength of password '$password'" if $verbose;
 

categories/wsg/beginner-2008/event001-eric256.pl

@@ -43,9 +43,9 @@
 
 my @cards = qw{6 5 6 6 K};
 my $p = 0;
-for @cards[0..@cards-2].kv -> $k, $v {
-    $p += (@cards[$k+0 .. ^*-1].grep: {$_ eq $v}).elems -1
-};
+for @cards.kv -> $k, $v {
+    $p += @cards[$k+1 .. *].grep: {$_ eq $v}
+}
 say "Total: $p";
 
 # vim: expandtab shiftwidth=4 ft=perl6