20 lines
454 B
Plaintext
20 lines
454 B
Plaintext
# Converts list to string
|
|
fun -string !ltos -list &inlist
|
|
getlistsize *inlist &listlen
|
|
set &idx 0
|
|
set &ans ""
|
|
add $ans "[" &ans
|
|
@stdoutloop
|
|
getlistat *inlist $idx &store
|
|
tostring $store &store
|
|
add $ans $store &ans
|
|
add $idx 1 &idx
|
|
equal $idx $listlen &store
|
|
if $store %trueend
|
|
add $ans ", " &ans
|
|
jump %stdoutloop
|
|
|
|
@trueend
|
|
add $ans "]" &ans
|
|
return $ans
|
|
endfun |