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/Arithmetic-evaluation/PicoLisp/arithmetic-evaluation-1.l
+++ b/Task/Arithmetic-evaluation/PicoLisp/arithmetic-evaluation-1.l
@ -0,0 +1,23 @@
+(de ast (Str)
+   (let *L (str Str "")
+      (aggregate) ) )
+
+(de aggregate ()
+   (let X (product)
+      (while (member (car *L) '("+" "-"))
+         (setq X (list (intern (pop '*L)) X (product))) )
+      X ) )
+
+(de product ()
+   (let X (term)
+      (while (member (car *L) '("*" "/"))
+         (setq X (list (intern (pop '*L)) X (term))) )
+      X ) )
+
+(de term ()
+   (let X (pop '*L)
+      (cond
+         ((num? X) X)
+         ((= "+" X) (term))
+         ((= "-" X) (list '- (term)))
+         ((= "(" X) (prog1 (aggregate) (pop '*L)))) ) )