Vidir: Difference between revisions
Content added Content deleted
(add RPL) |
|||
Line 457: | Line 457: | ||
} |
} |
||
}</syntaxhighlight> |
}</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}}== |
=={{header|Wren}}== |