Finding minimum in list

[Han]

(03-22-2017 03:14 PM)DrD Wrote:  I'm looking for ideas to efficiently locate the second value, of the minimum value of all first values, within a list of paired lists. For example, I would like set var R=2, from the minimum of all first values, {1,2 }, in this example list:

L0:={{5,1},{1,2},{1.25,3},{1.167,5}};
R:=2; // from item in red's second value

-Dale-

I don't suppose you have already tried something like:

Code:

EXPORT MINFIRST()
BEGIN
  L1:=MAKELIST(L0(J,1),J,1,SIZE(L0));
  M:=MIN(L1);
  M:=POS(L1,M);
  RETURN(L0(M,2)); // R:=L0(M,2);
END;

In the event of two or more sublists having the same minimal first values, the first occurrence will be used. Did you have any other conditions for such cases?