Initial data commit

Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-1.j

@@ -0,0 +1,4 @@
+   a: , <;._1 ' ' , '3 4 2 * 1 5 - 2 3 ^ ^ / +'
+┌┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐
+││3│4│2│*│1│5│-│2│3│^│^│/│+│
+└┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘

Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-2.j

@@ -0,0 +1,32 @@
+   isOp=: '_+-*/^' e.~ {.@>@{.
+   mo=: 1 :'(}: , u@{:) @ ['
+   dy=: 1 :'(_2&}. , u/@(_2&{.)) @ ['
+   dispatch=: (-mo)`(+dy)`(-dy)`(*dy)`(%dy)`(^dy)@.('_+-*/^' i. {.@>@])
+   doShift=: (<@, ".@>@{.) , }.@]
+   doApply=: }.@] ,~ [ <@dispatch {.@]
+   consume=: [: ([ smoutput@>@{.) >@{. doShift`doApply@.(isOp@]) }.
+   consume ^: (<:@#) a: , <;._1 ' ' , '3 4 2 * 1 5 - 2 3 ^ ^ / +'
+3
+3 4
+3 4 2
+3 8
+3 8 1
+3 8 1 5
+3 8 _4
+3 8 _4 2
+3 8 _4 2 3
+3 8 _4 8
+3 8 65536
+3 0.00012207
+3.00012
+┌───────┐
+│3.00012│
+└───────┘
+   consume ^: (<:@#) a: , <;._1 ' ' , '3 _ 4 +'
+3
+_3
+_3 4
+1
+┌─┐
+│1│
+└─┘

Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-3.j

@@ -0,0 +1,7 @@
+rpn=: 3 :0
+  queue=. |.3 :'|.3 :y 0'::]each;: y
+  op=. 1 :'2 (u~/@:{.,}.)S:0 ,@]'
+  ops=. +op`(-op)`(*op)`(%op)`(^op)`(,&;)
+  choose=. ((;:'+-*/^')&i.@[)
+  ,ops@.choose/queue
+)

Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-4.j

@@ -0,0 +1,2 @@
+   rpn '3 4 2 * 1 5 - 2 3 ^ ^ / +'
+3.00012

Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-5.j

@@ -0,0 +1,7 @@
+rpnD=: 3 :0
+  queue=. |.3 :'|.3 :y 0'::]each;: y
+  op=. 1 :'2 (u~/@:{.,}.)S:0 ,@([smoutput)@]'
+  ops=. +op`(-op)`(*op)`(%op)`(^op)`(,&;)
+  choose=. ((;:'+-*/^')&i.@[)
+  ,ops@.choose/queue
+)

Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-6.j

@@ -0,0 +1,10 @@
+   rpnD '3 4 2 * 1 5 - 2 3 ^ ^ / +'
+┌─────┐
+│2 4 3│
+└─────┘
+5 1 8 3
+3 2 _4 8 3
+8 _4 8 3
+65536 8 3
+0.00012207 3
+3.00012