tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Parsing-RPN-calculator-algorithm/PicoLisp/parsing-rpn-calculator-algorithm-1.l
+++ b/Task/Parsing-RPN-calculator-algorithm/PicoLisp/parsing-rpn-calculator-algorithm-1.l
@ -0,0 +1,12 @@
+(de rpnCalculator (Str)
+   (let (^ **  Stack)  # Define '^' from the built-in '**'
+      (prinl "Token  Stack")
+      (for Token (str Str "*+-/\^")
+         (if (num? Token)
+            (push 'Stack @)
+            (set (cdr Stack)
+               ((intern Token) (cadr Stack) (pop 'Stack)) ) )
+         (prin Token)
+         (space 6)
+         (println Stack) )
+      (println (car Stack)) ) )