Все еще работает на lisp рецепты и идиомы.lisp: объединить список списков в один список?
У меня есть список, как это:
((a b c) (d e f) nil (g h))
Я хотел бы закрепить, что в одном списке,
(a b c d e f g h)
Похоже там Oughta быть один вкладыш для этого.
(apply #'append '((a b c) (d e f) (g h i)))
или
(loop for outer in '((a b c) (d e f) (g h i))
nconcing (loop for inner in outer collecting inner))
Это типичный вопрос домашнего задания. Обычно эта операция называется FLATTEN (которая выравнивает списки на всех уровнях).
(mapcan #'copy-list '((a b c) (d e f) nil (g h)))
Применить вариант имеет проблему, что она может работать в CALL-АРГУМЕНТАХ-LIMIT, когда имеется больше, чем подсписки CALL-АРГУМЕНТЫ-LIMIT.
См, например, также http://rosettacode.org/wiki/Flatten_a_list#Common_Lisp
Спасибо за полезный ответ. Это определенно не было для меня домашней работой. Может быть, 20 лет назад, возможно, у меня было это задание на домашнюю работу, но сейчас я не могу вспомнить это! – Cheeso
@Cheeso: это был намек на то, что вы можете найти для него решения ... –
Вы можете также использовать reduce и append:
(reduce #'append '((a b c) (d e f) nil (g h)))
К сожалению, это гораздо меньше времени и пространства эффективно, чем другие решения, так как он вызывает append много и копирует результат в процессе без необходимости.
Отлично! - только то, что мне нужно. – Cheeso
'nconc' (и' mapcan') может быть плохим для вашего здоровья. –
@eli: Конечно. Но в петле выше это нормально, или это так? Внутренний цикл возвращает свежие списки, поэтому 'nconc'ing - это нормально. – Dirk