> 1 <
| Автор | Сообщение |
kokkok
7 сообщений |
#5429 2012-01-01 19:59 GMT+3 часа(ов) |
|
Имеем: '(1 4 40) '(2 3 30) '(3 7 70)
применив: (list '(1 4 40) '(2 3 30) '(3 7 70)) получим: ((1 4 40) (2 3 30) (3 7 70)) как получить из последнего первое, т.е. опять: (1 4 40) (2 3 30) (3 7 70) |
|
megamanx
307 сообщений |
#5430 2012-01-01 20:47 GMT+3 часа(ов) |
|
Кому получить? В самом начале '(1 4 40) '(2 3 30) '(3 7 70) в воздухе висят.
|
|
|
I wish I'd made you angry earlier
|
|
kokkok
7 сообщений |
#5431 2012-01-01 21:04 GMT+3 часа(ов) |
|
'(1 4 40) '(2 3 30) '(3 7 70)
Не "в воздухе висят". Это несколько списков. А спрашиваю, т.к.: (mapcar 'min '(1 4 40) '(2 3 30) '(3 7 70)) (1 3 30) - результат (искомый) работает, а: (mapcar 'min '('(1 4 40) '(2 3 30) '(3 7 70))) не работает! 1-я строка здесь - исходные данные. И состоять может из сотен списков. Для управления ими я делаю из них 1 список. Для (mcar) же нужен просто набор списков) Как найти минимум для каждой соответственной позиции ((min 1 2 3) (min 4 3 7)...) по-проще? |
|
VH
289 сообщений |
#5433 2012-01-02 00:01 GMT+3 часа(ов) |
(apply 'mapcar (cons 'min '((1 4 40) (2 3 30) (3 7 70)))) |
|
kokkok
7 сообщений |
#5434 2012-01-02 00:50 GMT+3 часа(ов) |
|
Спасибо, VH.
А ведь так просто! |
|
> 1 <