From 8d5490a332ed12af6a6a338392a787c0bdd63661 Mon Sep 17 00:00:00 2001
From: Noud Aldenhoven <noud.aldenhoven@gmail.com>
Date: Tue, 24 Sep 2019 22:03:56 +0200
Subject: Corrected challenge 2 so the tools splits on semicolon

---
 challenge-027/noud/perl6/ch-2.p6 | 4 ++--
 challenge-027/noud/perl6/exm.p6  | 7 ++-----
 2 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/challenge-027/noud/perl6/ch-2.p6 b/challenge-027/noud/perl6/ch-2.p6
index 1d1ad3232e..0d7e6d9f8f 100644
--- a/challenge-027/noud/perl6/ch-2.p6
+++ b/challenge-027/noud/perl6/ch-2.p6
@@ -13,12 +13,12 @@ my @variables = ();
 my $pattern = /my\s*\$(\w+)/;
 
 my $exec_prog = "";
-for 'exm.p6'.IO.lines -> $line {
+for 'exm.p6'.IO.slurp.split(";") -> $line {
     my @line_var = ($line ~~ $pattern).values;
     if (@line_var.elems > 0) {
         @variables = (|(@line_var), |(@variables));
     }
-    $exec_prog = "$exec_prog $line";
+    $exec_prog = "$exec_prog $line\;";
     # After every line update %var_hash_ with the current variable values.
     for @variables -> $x {
         $exec_prog = "$exec_prog \%var_hash_\.push: ($x => \$$x)\;";
diff --git a/challenge-027/noud/perl6/exm.p6 b/challenge-027/noud/perl6/exm.p6
index caef08a250..ba00280a6e 100644
--- a/challenge-027/noud/perl6/exm.p6
+++ b/challenge-027/noud/perl6/exm.p6
@@ -1,6 +1,3 @@
-my $x = 10;
-$x += 5;
-my $y = 20;
-$x -= 10;
-$y = $x + $y;
+my $x = 10; $x += 5;
+my $y = 20; $x -= 10; $y = $x + $y;
 $x /= 5;
-- 
cgit