String concatenation: Difference between revisions
Add Uxntal
m (→{{header|Wren}}: Changed to Wren S/H) |
(Add Uxntal) |
||
Line 2,465:
# outputs "hello world"
out s2 endl console</syntaxhighlight>
=={{header|Uxntal}}==
<syntaxhighlight lang="Uxntal">|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|0100 @on-reset ( -> )
;str3 ;str1 copy-str
;str3 ;str2 append-str
;str3 print-str
#0a .Console/write DEO
BRK
@print-str ( str* -: )
&loop ( -- )
LDAk .Console/write DEO
INC2 LDAk ?&loop
POP2 JMP2r
@copy-str ( dest* src* -: )
STH2
&loop ( -- )
LDAkr STH2k STAr INC2 LDAkr STHr INC2r ?&loop
POP2 POP2r JMP2r
@append-str ( dest* src* -: )
STH2 end-str STH2r copy-str JMP2r
@end-str ( str* -: str* )
!&inner
&loop ( -- )
INC2 &inner LDAk ?&loop
JMP2r
@str1 "Uxn 00
@str2 "tal 00
@str3</syntaxhighlight>
=={{header|Vala}}==
| |||