search list and return the match list

Hi Kevin

The following code should be ok:

procedure( CCSflattenList(myList)
   if(listp(myList)
      mapcan('CCSflattenList myList)
      list(myList)
   ) ;if
) ;procedure CCSflattenList from solution 11023690


myList1= list("at" "ad" "ap")
myList2=list("dad" "bad" "god" "dog" "map" "lap" "glad")

procedure( CCSgetMatchedItems(myList1 myList2)
   prog( (myList3 myList3Flat myList3Final)
      myList3=foreach( mapcar x myList1
         pcreMatchList(x myList2)
      ) ;foreach

      myList3Flat=CCSflattenList(myList3)
      myList3Final=list()
      foreach( x myList3Flat
         unless( member(x myList3Final)
            myList3Final=append1(myList3Final x)
         ) ;unless
      ) ;foreach
      return(myList3Final)
   ) ;prog
) ;procedure

CCSgetMatchedItems(myList1 myList2)

Best regards
Quek

Quek, sorry to point out that this can be done rather more concisely:

LIST3=setof(elem LIST2
  exists(pat LIST1 index(elem pat))
)

this returns:

("dad" "bad" "map" "lap" "glad")

Which isn't quite the same as your suggested return value (same contents as Quek's but in a different order). I think Kevin's suggestion as to the value of LIST3 has an error, unless there is some other criteria for match that you (Kevin) has not made clear.

Regards,

Andrew.

Quek, sorry to point out that this can be done rather more concisely:

LIST3=setof(elem LIST2
  exists(pat LIST1 index(elem pat))
)

this returns:

("dad" "bad" "map" "lap" "glad")

Which isn't quite the same as your suggested return value (same contents as Quek's but in a different order). I think Kevin's suggestion as to the value of LIST3 has an error, unless there is some other criteria for match that you (Kevin) has not made clear.

Regards,

Andrew.

Hi Andrew

This is awesome. : )  Thank you very much. I have learned a lot from your example.

Best regards
Quek