How to sort two lists? Sort distance

[StephenG1CMZ]

Here is a version that works with your choice of sort (distance) function as a parameter:

Code:


 EXPORT MYSORTFUN(LST,ITEM)
 //EXAMPLE DISTANCE FUNCTION: USE YOUR OWN
 BEGIN
  RETURN ABS(LST-ITEM);
 END;

 EXPORT SortByFun(LST,SortFun)
 //Sort using SortFun as your sort function
 //EG SortByFun(LST,MYDIST)
 BEGIN
  LOCAL SORTORDER:=SortFun;
  LOCAL SORTED:=Sortn({LST,SORTORDER},2);
  RETURN SORTED(1); //TO SEE THE SORT ORDER:2
 END;

 EXPORT SORTER()
 //EXAMPLE
 BEGIN
  LOCAL TESTLST:={10,20,5};
  LOCAL ITEM:=10;
  RETURN SortByFun(TESTLST,MYSORTFUN(TESTLST,ITEM));  
 END;

SortByFun has now been added to my collection of sort routines:
https://www.hpmuseum.org/forum/thread-11...#pid124491

Ailoher, did you have any specific sort distance function in mind? Or is ABS(LST-Item) OK?