Simple sorting algorithm for arrays

, ,
3

Hi Steve Robinson!

Sounds interesting…

Natural’s SORT is not able to deal with dynamics…

define data local
01 #myarray (A/9) dynamic
init <'bla','blub','foo','bar','zoo','a','c','bla'>
01 #i1 (I1)
end-define
for #i1 = 1 to 8
  ignore
end-all
sort by #myarray(#i1) using #i1  /* NAT0232 here
  display #i1 #myarray(#I1)
end-sort
end

Next thing is that you can’t nest Natural’s SORT. So this is one more reason to write an own sort…

Regards,

Matthias