Как сделать краткую карту через список списков?

Question

Я ищу краткую схему для отображения вариационной функции в нескольких списках, но вместо того, чтобы передавать списки как отдельные аргументы, как в MAPCAR, я хочу передать один список, состоящий из любого количества списков, и сопоставить их списки. Я не знаю заранее, сколько списков содержится в прилагаемом списке, поэтому я не могу его разрушить.

Я пробовал комбинировать MAPCAR и APPLY различными способами, но не могу понять это. Должен ли я отказаться от использования MAP и просто написать итерацию явно?

Вот функция, которая делает то, что я хочу:

(defun map-within (fn list-of-lists &optional(maptype #'mapcar)) 
    "Map FN on the lists contained in LIST-OF-LISTS" 
    (cond ((null list-of-lists) nil) 
    ((null (cdr list-of-lists)) (car list-of-lists)) 
    (t 
    (funcall maptype fn 
     (car list-of-lists) 
     (map-within fn (cdr list-of-lists) maptype))))) 

где

(map-within #'+ '((1 2 3) (10 20 30) (100 200 300))) => (111 222 333) 

Есть некоторое магическое применение лямбды сделанной из карты, которые могли бы выразить это только с одной линией?

Answer 1

Вы можете использовать apply так:

(apply #'mapcar #'+ '((1 2 3) (10 20 30) (100 200 300))) 
=> (111 222 333)