Call for Library Submissions

[Dimster]

Seems there was some really good discussions on different Sorting Routines with sample code and some really good discussions and routines for Child Windows. Could these be captured in our Library or are they not the type or standards for the Library?

[bplus]

Seems there was some really good discussions on different Sorting Routines with sample code and some really good discussions and routines for Child Windows. Could these be captured in our Library or are they not the type or standards for the Library?

I think code should be posted in Programs so that feedback and updates can be tracked publicly.

Steve has nice Memory sort in Library and qsort is very good general purpose sorter and should serve most very well. Sure, for special cases there are better, for special cases, and for those who want to track all those checkout Rosetta Code and all their variations.

Child Windows sounds interesting, someone have something easy and dependable?

Does anyone need a copy of Qsort?

[Dimster]

I don't believe I have come across Qsort. I would be interested in a sample code for this routine. Thanks b+

[bplus]

Using Q short for Quick maybe you've seen that before :)
https://en.wikipedia.org/wiki/Quicksort

I threw together a Q Demo:

Code: QB64: [Select]

1. Const nItems = 100
2. ReDim Shared sa$(1 To nItems) 'setup with string array sa$() shared so dont have to pass as parameter
3. For x = 1 To nItems ' make a random list to sort
4.     b$ = ""
5.     r = (Rnd * 5) \ 1 + 2
6.     For i = 0 To r
7.         b$ = b$ + Mid$("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789.?", (Rnd * 64) \ 1 + 1, 1)
8.     Next
9.     sa$(x) = b$
10.     Print b$,
11. Next
12. Print
13. Print "Press any to sort"
14. Sleep
15. QSort 1, nItems
16. Cls
17. For i = 1 To nItems
18.     Print sa$(i),
19. Next
20. Print
21.  
22.  
23. ' modified for QB64 from JB
24. ' This is the best all purpose sort routine around, don't worry how it works, it just does!
25. ' To use this sub rountine store all the string values you want to sort into sa$() array
26. ' call Qsort with Start = 1 and Finish = number of Items in your array
27. Sub QSort (Start, Finish) 'sa$ needs to be   DIM SHARED !!!!     array
28.     Dim i As Long, j As Long, x$
29.     i = Start
30.     j = Finish
31.     x$ = sa$(Int((i + j) / 2))
32.     While i <= j
33.         While sa$(i) < x$
34.             i = i + 1
35.         Wend
36.         While sa$(j) > x$
37.             j = j - 1
38.         Wend
39.         If i <= j Then '<< makes this an ascending sort
40.             Swap sa$(i), sa$(j)
41.             i = i + 1
42.             j = j - 1
43.         End If
44.     Wend
45.     If j > Start Then QSort Start, j
46.     If i < Finish Then QSort i, Finish
47. End Sub

[Dimster]

Ya that's the quick sort I've been using and you are right, best one for stuff I do but I use it for values and can see now how it works with string arrays. Thanks B+

[bplus]

I think what makes it an ascending sort is commented wrong, it's the compares to the pivot x$ that determines ascending or descending which BTW I made half way between to save time as opposed to random pivot.

[Qwerkey]

@Dimster @bplus There is a thread (as Dimster says) on Sort Routines, and likewise I did think at the time that this might be  a Library entry.  I'll investigate & discuss with bplus.  Maybe look at Child Windows later.

[Qwerkey]

Guess we can add it it now @bplus,

the function is online for 5 days now, has more than 200 views and several replies by other members, but no obvious error reports.

https://www.qb64.org/forum/index.php?topic=4142.0

Rho, you're blocking my Personal Messages.  Could you unblock?  The Library Cataloguer (me) likes to discuss any private matters relating to the Library there.  Thanks, Qwerkey

[Qwerkey]

Apologies to general membership, should have put @RhoSigma in previous reply.

[RhoSigma]

Rho, you're blocking my Personal Messages.  Could you unblock?  The Library Cataloguer (me) likes to discuss any private matters relating to the Library there.  Thanks, Qwerkey

Ok, @Qwerkey it's unblocked now for all members...