Sort a list of object identifiers: Difference between revisions

Content added Content deleted
Line 717: Line 717:
}
}
\\ no easy way to join ;
\\ no easy way to join ;
\\ n^ is the cursor from iterator n
Function join$(a$()) {
Function join$(a$()) {
n=each(a$(), 1, -2)
n=each(a$(), 1, -2)
k$=""
k$=""
while n {
while n {
overwrite k$, ".", n^:= str$(array(n),"")
overwrite k$, ".", n^:=array$(n)
}
}
=k$
=k$