sidef/scripts/RosettaCode/rpn_calculator_algorithm.sf

#!/usr/bin/ruby

#
## https://rosettacode.org/wiki/Parsing/RPN_calculator_algorithm
#

var proggie = '3 4 2 * 1 5 - 2 3 ^ ^ / +';

class RPN(arr=[]) {

    method binop(op) {
        var x = arr.pop
        var y = arr.pop
        arr << y.(op)(x)
    }

    method run(p) {
        p.each_word { |w|
            say "#{w} (#{arr})";
             if (w ~~ /\d/)           { arr << w.to_f }
             elsif (w ~~ %w(+ - * /)) { self.binop(w) }
             elsif (w == '^')         { self.binop('**') }
             else                     { die "#{w} is bogus" }
        }
        say arr[0]
        assert_eq(arr[0], 3.0001220703125)
    }
}

RPN.new.run(proggie)