Add std/string/array/concat.lb
This commit is contained in:
parent
5ac9f3e5da
commit
fcdb37b72f
25
std/string/array/concat.lb
Normal file
25
std/string/array/concat.lb
Normal file
@ -0,0 +1,25 @@
|
||||
@ 0
|
||||
args 0
|
||||
size
|
||||
#exec std/string/array/rev.lb
|
||||
|
||||
|
||||
args 1
|
||||
dup
|
||||
@ 1
|
||||
kjz 2
|
||||
args 1
|
||||
#exec std/rot.lb
|
||||
#exec std/rot.lb
|
||||
#expr -
|
||||
jmp 1
|
||||
|
||||
@ 2
|
||||
pop
|
||||
;#exec std/string/array/rev.lb ; Finish getting arguments
|
||||
|
||||
#expr +
|
||||
#exec std/rev.lb
|
||||
pop
|
||||
size
|
||||
quit
|
Loading…
Reference in New Issue
Block a user