Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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)) ) )