Anonymous user
Sort a list of object identifiers: Difference between revisions
→Using QuickSort
Line 773:
Data "1.3.6.1.4.1.11.2.17.19.3.4.0.10", "1.3.6.1.4.1.11.2.17.5.2.0.79", "1.3.6.1.4.1.11150.3.4.0"
Dim Base 0, arr(Stack.Size)
i=0 : While not Empty {arr$(i)=piece$(letter$+".", ".") : i++ }
}
For i=0 to len(arr())-1 {
Print join$(arr(i))
| |||