Select Code to Download

$ cat expression_evaluator.pl
#!/usr/bin/perl
...
  print "  ====> ", evaluate_RPN($RPN), "\n";
  print "Variables: ", join(", ", map { "$_:$vars{$_}" } sort keys %va
+rs), "\n";
}

$ ./expression_evaluator.pl
a:=1*(2+(3/5+2))
...
c:=(b-a)*(5+3+(9-6)*3)
RPN: c b a - 5 3 + 9 6 - 3 * + * :=  (c set to <255>)  ====> 255
Variables: a:4.6, b:19.6, c:255