OpenEuphoria

Re: Problem !!!

• Posted by Jacques Deschenes <desja at QUEBECTEL.COM> Feb 22, 1997
• 910 views

At 23:59 21-02-97 -0500, you wrote:
>Jacques Deschenes writes:
>> What a suprise to read that.  A sort with *zero* comparisons!
>> By nature sorting means comparing.  I would certainly be happy to see
>> that miraculous sort.
>
>-- bucket sort ------------------------------------------------------
>
>function bucket_sort(sequence s, integer min_value, integer max_value)
>-- Sort s into ascending order. No elements are compared.
>-- The values of s must be integers from min_value to max_value
>    sequence count, sorted
>    integer value
>
>    count = repeat(0, max_value-min_value+1)
>    s = s - (min_value - 1)
>    for i = 1 to length(s) do
>        value = s[i]
>        count[value] = count[value]+1
>    end for
>    sorted = {}
>    for i = 1 to length(count) do
>        sorted = sorted & repeat(i, count[i])
>    end for
>    return sorted + (min_value - 1)
>end function
>
>? bucket_sort({25,7,2,5,200,14,7,10}, 1, 256)
>
>-------------------------------------------------

Converted me Robert, Now I'm a beleiver. Alleluia!
Jacques Deschenes
Baie-Comeau, Quebec
Canada
desja at quebectel.com