9 lines
151 B
Scilab
9 lines
151 B
Scilab
|
function [stk,txt,top]=sci_shift()
|
||
|
RHS=[]
|
||
|
for k=1:rhs
|
||
|
RHS=[stk(top)(1),RHS]
|
||
|
top=top-1
|
||
|
end
|
||
|
top=top+1
|
||
|
stk=list('shift'+rhsargs(RHS),'0','?','1','1')
|