Data commit

Task/Arithmetic-evaluation/Ursala/arithmetic-evaluation-1.ursala

@@ -0,0 +1,18 @@
+#import std
+#import nat
+#import flo
+
+lex = ~=' '*~F+ rlc both -=digits    # separate into tokens
+
+parse = # build a tree
+
+--<';'>; @iNX ~&l->rh ^/~&lt cases~&lhh\~&lhPNVrC {
+   '*/': ^|C/~&hNV associate '*/',
+   '+-': ^|C/~&hNV associate '*/+-',
+   ');': @r ~&htitBPC+ associate '*/+-'}
+
+associate "ops" = ~&tihdh2B-="ops"-> ~&thd2tth2hNCCVttt2C
+
+traverse = *^ ~&v?\%ep ^H\~&vhthPX '+-*/'-$<plus,minus,times,div>@dh
+
+evaluate = traverse+ parse+ lex

Task/Arithmetic-evaluation/Ursala/arithmetic-evaluation-2.ursala

@@ -0,0 +1,17 @@
+#cast %eL
+
+test = evaluate*t
+
+-[
+1+1
+4/5
+2-1
+3*7
+3+4+5
+9-2-4
+7/3/2
+4+2*3
+5*2-1
+5-3*2
+(1+1)*(2+3)
+(2-4)/(3+5*(8-1))]-