expanding list to objects

[StephenG1CMZ]

(06-19-2016 09:25 PM)Didier Lachieze Wrote:  @poznavatelj: I may be wrong but I don't think it's possible.

(06-19-2016 07:05 PM)Tonig00 Wrote:  by the way if somebody knows a command to eliminate repetitions in a list tell me {1,2,2,3} to give {1,2,3}

mat2list(CAS("{1,2,2,3} union {1,2,2,3}"))

I thought that would be a useful procedure - but I wasn't sure of the syntax needed to make {1,2,2,3} into a list parameter within a quoted string within CAS.

But here is a procedure to do that in PPL

Code:



 // StephenG1CMZ 2016

 LST_PurgedOfDuplicates(LST)
 //LST UNCHANGED. RETURN PURGED LST
 BEGIN
  LOCAL II;
  //LOCAL LST:={1,2,2,3};
  LOCAL OUTLST:={};

  //THIS SOLN-WORKS WHEREVER POS RECOGNISES ELE WITHIN LST
  FOR II FROM 1 TO SIZE(LST)  DO
   IF POS(OUTLST,LST(II)) THEN //DUPLICATE
   ELSE OUTLST(0):=LST(II); 
   END;
  END;
  //MSGBOX(OUTLST);
  RETURN OUTLST;
  //TO COUNT HOW MANY DUPLICATES PURGED: ON EXIT: SIZE(LST)-SIZE(RETURNVALUE); 
 END;

 EXPORT LISTER()
 BEGIN
  LOCAL UNIQUELST:=LST_PurgedOfDuplicates({1,2,2,3});
  RETURN UNIQUELST;
 END;