How to sort two lists? Sort distance

[StephenG1CMZ]

I am not aware of a built-in for that.
I think this outlines what you want...
Although you will probably prefer to make the MYDIST function a parameter
(update: see later post)

Code:


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

 EXPORT DIST(LST,ITEM)
 BEGIN
  RETURN MYDIST(LST,ITEM);
 END;

 EXPORT SORTDIST(LST,ITEM)
 BEGIN
  LOCAL DISTLST:=DIST(LST,ITEM);
  LOCAL SORTED:=Sortn({LST,DISTLST},2);
  RETURN SORTED(1);
 END;
 
EXPORT LISTER()
//EXAMPLE
BEGIN
  LOCAL TESTLST:={10,20,5};
  LOCAL ITEM:=1;
  RETURN SORTDIST(TESTLST,ITEM);
END;