diff options
| author | Adam Russell <ac.russell@live.com> | 2019-12-23 09:09:36 -0500 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2019-12-23 09:09:36 -0500 |
| commit | c0dff1b486144f2bab92d842273b7841e787b1bd (patch) | |
| tree | 1599ca1c5fbf18254ba76735ba382332d7dc23b3 | |
| parent | ce9e5b7ef5706d875fd28aeb8c8cd054016d9f99 (diff) | |
| download | perlweeklychallenge-club-c0dff1b486144f2bab92d842273b7841e787b1bd.tar.gz perlweeklychallenge-club-c0dff1b486144f2bab92d842273b7841e787b1bd.tar.bz2 perlweeklychallenge-club-c0dff1b486144f2bab92d842273b7841e787b1bd.zip | |
update to part 2
| -rw-r--r-- | challenge-039/adam-russell/perl/Rpn.yp | 2 | ||||
| -rw-r--r-- | challenge-039/adam-russell/perl/ch-2.pl | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/challenge-039/adam-russell/perl/Rpn.yp b/challenge-039/adam-russell/perl/Rpn.yp index d27d0b7bcd..d61d952b40 100644 --- a/challenge-039/adam-russell/perl/Rpn.yp +++ b/challenge-039/adam-russell/perl/Rpn.yp @@ -5,7 +5,7 @@ line: '\n' | rpn '\n' {print $_[1] . "\n"} ; rpn: NUMBER - | rpn rpn '+' { $_[1] + $_[2]} + | rpn rpn '+' {$_[1] + $_[2]} | rpn rpn '-' {$_[1] - $_[2]} | rpn rpn '*' {$_[1] * $_[2]} | rpn rpn '/' {$_[1] / $_[2]} diff --git a/challenge-039/adam-russell/perl/ch-2.pl b/challenge-039/adam-russell/perl/ch-2.pl index 52d9a91e10..f1c333496e 100644 --- a/challenge-039/adam-russell/perl/ch-2.pl +++ b/challenge-039/adam-russell/perl/ch-2.pl @@ -8,11 +8,13 @@ use constant RPN_ADD => "10 8 + \n"; use constant RPN_SUBTRACT => "18 66 - \n"; use constant RPN_MULTIPLY => "10 8 * \n"; use constant RPN_DIVIDE => "52 2 / \n"; +use constant RPN => "2 2 + 3 3 + + 1 7 - + \n"; MAIN:{ my $parser = new Rpn(); $parser->parse(RPN_ADD); $parser->parse(RPN_SUBTRACT); $parser->parse(RPN_MULTIPLY); - $parser->parse(RPN_DIVIDE); + $parser->parse(RPN_DIVIDE); + $parser->parse(RPN); } |