Sort a list of object identifiers: Difference between revisions

Content added Content deleted
m (Use foreach instead of failure driven loop)
Line 1,138: Line 1,138:
i=0 : While not Empty {arr$(i)=piece$(letter$+".", ".") : i++ }
i=0 : While not Empty {arr$(i)=piece$(letter$+".", ".") : i++ }
}
}
Print "Unsorted"
For i=0 to len(arr())-1 {
For i=0 to len(arr())-1 {
Print join$(arr(i))
Print join$(arr(i))
Line 1,153: Line 1,153:
}
}
Call Quick.quicksort(&arr(), 0, Len(arr())-1)
Call Quick.quicksort(&arr(), 0, Len(arr())-1)
Print "Sorted"
For i=0 to len(arr())-1 {
For i=0 to len(arr())-1 {
Print join$(arr(i))
Print join$(arr(i))
}
}

</lang>
</lang>