> 1 <

Автор Сообщение

kokkok

Members


Статус

7 сообщений

Где: Russia
Род занятий:
Возраст:

#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

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#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

Members


Статус

7 сообщений

Где: Russia
Род занятий:
Возраст:

#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

Members


Статус

289 сообщений

Где: ---
Род занятий:
Возраст:

#5433   2012-01-02 00:01 GMT+3 часа(ов)      
(apply 'mapcar (cons 'min '((1 4 40) (2 3 30) (3 7 70))))

kokkok

Members


Статус

7 сообщений

Где: Russia
Род занятий:
Возраст:

#5434   2012-01-02 00:50 GMT+3 часа(ов)      
Спасибо, VH.
А ведь так просто!
> 1 <


Онлайн :

0 пользователь(ей), 26 гость(ей) :