Parsing/RPN calculator algorithm: Difference between revisions
→{{header|Raku}}
m (→Lambdatalk) |
|||
Line 4,775:
(formerly Perl 6)
{{works with|rakudo|2015-09-25}}
<lang perl6>
my $proggie = '3 4 2 * 1 5 - 2 3 ^ ^ / +';
class RPN is Array {
method binop(&op) { self.push: self.pop R[&op] self.pop }
method run($p) {
for $p.words {
Line 4,794 ⟶ 4,795:
say self;
}
}
RPN.new.run($proggie);
</lang>
{{out}}
<pre>3 ()
| |||