Vidir: Difference between revisions
add RPL
(add RPL) |
|||
Line 457:
}
}</syntaxhighlight>
=={{header|RPL}}==
{{works with|HP|48G}}
≪ <span style="color:red">"VIDIR"
{ { "OBJ: " "?" 5 } }
{ }</span>
VARS <span style="color:red">1</span> →LIST DUP
INFORM VARS
→ newnames oldnames
≪ '''IF''' newnames SIZE oldnames SIZE == '''THEN'''
<span style="color:red">1</span> oldnames SIZE '''FOR''' j
oldnames j GET
DUP RCL
<span style="color:red">"'~tmp"</span> j + STR→ STO
PURGE
'''NEXT'''
<span style="color:red">1</span> oldnames SIZE '''FOR''' j
<span style="color:red">"'~tmp"</span> j + STR→
DUP RCL
newnames j GET STO
PURGE
'''NEXT'''
'''END'''
≫ ≫ '<span style="color:blue">VIDIR</span>' STO
=={{header|Wren}}==
| |||