dynamical list problem

[BruceH]

(01-04-2019 08:51 AM)peacecalc Wrote:  {1 2 1 3 2} -> {{1 2 1 1} {2 1 2} {1 3 1} {3 2}} These four lists contain all a way of 5 meters, but with different times of walking:

Hi Peacecalc,

The following short program produces your sub-lists. Is that enough to enable you to finish it off by adding in the calculation?

Code:

timing({1,2,1,3,2}) --> {{1,2,1,3},{2,1,3},{1,3,2},{3,2}}

PHP Code:

EXPORT timing(a)
BEGIN
  LOCAL i,j,k,m,res;
  res := {};
  k := SIZE(a);
  FOR i FROM 1 TO k DO
    FOR j FROM i TO k DO
      m := a({i,j});
      IF ΣLIST(m) >= 5 THEN
        res := append(res,m);
        BREAK;
      END;
    END;
  END;
  RETURN res;
END;