On Thu, Nov 28, 2019 at 01:30:26PM +0100, Alexander Burger wrote:
> (de f (Names)
> (pilog
> (quote
> @Names Names
> @Gen (mapcan '((Nm) (list 'nm '+TagVal Nm)) Names)
> (select (@Item)
> ((@Gen (v +Tag) itm))
> ...
Haha, it just occurs to me that we made a stupid mistake!
As we are searching for objects that have ALL names (i.e. an AND of all names in
the list), searching the index multiple times (once for each element in the
list) in very inefficient and unnecessary :)
Instead, we can pick any element of the list, e.g. the CAR:
(de f (Names)
(pilog
(quote
@Names Names
@Key (car Names)
(select (@Item)
((nm +TagVal @Key (v +Tag) itm))
...
☺/ A!ex
--
UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
