Return the longest list in an association list

[Jonathan Handojo]

Hello fellow hackers,

 

A simple question where I'm still struggling to find an answer:

 

"I have an association list (just like you would get using (entget (car (entsel))), except that they're not dotted pairs, they're lists (all of them). How can you retrieve the longest or shortest list from that association list?"

 

Thanks,

Jonathan Handojo

[Jonathan Handojo]

Lol, actually... forget it  

(nth (vl-position (apply 'max (mapcar 'length lst)) (mapcar 'length lst)) lst)

 

[Lee Mac]

Alternatively -

(nth (car (vl-sort-i (mapcar 'length lst) '>)) lst)

Though sorting to find an extremum is likely to be slower in general.