7 lines
177 B
Text
7 lines
177 B
Text
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
|
|
)
|