tasks a-s

Task/Parsing-RPN-calculator-algorithm/Perl-6/parsing-rpn-calculator-algorithm.pl6

@@ -0,0 +1,22 @@
+my $proggie = '3 4 2 * 1 5 - 2 3 ^ ^ / +';
+
+class RPN is Array {
+
+    method binop(&infix:<op>) { self.push: self.pop Rop self.pop }
+
+    method run($p) {
+        for $p.words {
+            say "$_ ({self})";
+            when /\d/ { self.push: $_ }
+            when '+'  { self.binop: &[+] }
+            when '-'  { self.binop: &[-] }
+            when '*'  { self.binop: &[*] }
+            when '/'  { self.binop: &[/] }
+            when '^'  { self.binop: &[**] }
+            default   { die "$_ is bogus" }
+        }
+        say self;
+    }
+}
+
+RPN.new.run($proggie);