number sort

i wrote a super-simple number sorter, but i want something more. how
to sort numbers with 5 digits like (4320,745,321)?


--only 1 digit!

set nr_ls to {3, 6, 3, 8, 1, 5}

set nw_ls to {}
repeat with i in nr_ls
set i to i as number
if nw_ls is {} then
copy i to end of nw_ls
else
set ref_of to last item of nw_ls
if i < ref_of then
copy i to end of nw_ls
else if i > ref_of then
copy i to beginning of nw_ls
end if
end if
end repeat
return nw_ls

Michelle Steiner wrote:

> When I showed the listing to someone, he asked why I used a bubble sort,
> and I told him that I was sorting only 13 elements at a time, and there
> really wasn't any time advantage to a quicksort for so few elements.

Yes. It seems to me that Knuth (or Sedgewick, I'm not sure) recommends
to use insertion sort instead of quicksort when the number of elements
is small. And that the final part of quicksort (on small sets of number)
use actually insertion sort. But with bubble sort it's ok too :-)



--
JiPaul.
/ /--/--//\\ Jean-Paul Blanc
|/| L |\\\ quelquepart en (somewhere in)
\/|| = |||\\\ FRANCE