aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-3.j Normal file
View file

@ -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
)

2
Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-4.j Normal file
View file

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

7
Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-5.j Normal file
View file

@ -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
)

10
Task/Parsing-RPN-calculator-algorithm/J/parsing-rpn-calculator-algorithm-6.j Normal file
View file

@ -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