convert list with mapcar, lambda...

[robierzo]

I ask here to not open another topic.

For to get smallest Y from this list

(setq lista '((14.563 (14 11)) (8.654 (10 18)) (12.647 (4 3)) (3.478 (1 9))))

Result: 3

I use this, but it works:

 
(setq Y_Minima (apply 'min (mapcar 'cadr lista)))

Edited September 24, 2012 by robierzo

[robierzo]

Although it is unprofessional:

 
(foreach n lista
   (if (or (= y_minim nil) (< (cadr (cadr n)) y_minim)) (setq y_minim (cadr (cadr n))))
 )

[Lee Mac]

(apply 'min (mapcar 'cadadr lista))

 

?

[robierzo]

Thanks, Lee.