diff options
| author | Noud Aldenhoven <noud.aldenhoven@gmail.com> | 2019-09-24 22:03:56 +0200 |
|---|---|---|
| committer | Noud Aldenhoven <noud.aldenhoven@gmail.com> | 2019-09-24 22:03:56 +0200 |
| commit | 8d5490a332ed12af6a6a338392a787c0bdd63661 (patch) | |
| tree | e01a0508bd70b62f8075966996aa31f569a70258 | |
| parent | 164bfa12b037c6af747e57f98c79e67db31fda43 (diff) | |
| download | perlweeklychallenge-club-8d5490a332ed12af6a6a338392a787c0bdd63661.tar.gz perlweeklychallenge-club-8d5490a332ed12af6a6a338392a787c0bdd63661.tar.bz2 perlweeklychallenge-club-8d5490a332ed12af6a6a338392a787c0bdd63661.zip | |
Corrected challenge 2 so the tools splits on semicolon
| -rw-r--r-- | challenge-027/noud/perl6/ch-2.p6 | 4 | ||||
| -rw-r--r-- | 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; |