Как объединить два списка?

Извините, но элисп не мой лучший. Мне нужно объединить два списка строк следующим образом:

("a" "b" "c") + ("d" "e" "f") -> ("a" "b" "c" "d" "e" "f")

Ну, порядок не важен, поэтому я написал этот код:

(while lista
  (add-to-list 'listb (car lista)) 
  (setq lista (cdr lista)))

Это работает, но мне интересно, есть ли функция, которая уже делает это.

Любая подсказка? Заранее спасибо.

list Daniele
источник

См. Раздел Создание списков узлов в руководстве по Elisp.

Дрю

appendэто правильный ответ здесь, но другой (разрушительный) способ сделать это будет (setcdr (last a) b).

Шон Оллред

Работаете со списками? dash.el ! (-concat '(1) '(2 3) '(4)) ;; => '(1 2 3 4)

Эвинс

Никогда не используйте add-to-listв коде на Лиспе (это сказано в строке документации). Вместо этого используйте push.

Радон Росборо

Ответы:

Вы также можете просто использовать приложение.

(append '("a" "b" "c") '("d" "e" "f"))

Джон Китчин
источник

И,(nconc '("a" "b" "c") '("d" "e" "f"))

юрист

О, да, действительно, appendкажется, здесь лучше.

ЖанПьер

nconc работает, но если вы храните списки в переменных, они будут изменены nconc. Например, (let ((a '(1 2 3)) (b' (3 4 5))) (nconc ab) a) изменит переменную a.

Джон Китчин

FYI cl-concatenateиспользует appendкогда TYPE list, так что оба ответа дают одинаковый результат.

Фил

Да, это, безусловно, делает работу. Большое спасибо всем за вашу помощь.

Даниэле

concatenate - это псевдоним cl-concatenate в cl.el.

(объединить ПОСЛЕДОВАТЕЛЬНОСТЬ ТИПА ...)

Объединить в последовательность типа TYPE аргумент SEQUENCEs.

Так что для вашего примера

(concatenate 'list '("a" "b" "c") '("d" "e" "f"))

Поскольку это определено в clвас, возможно, придется (require 'cl)сначала, в противном случае вы можете использовать, cl-concatenateкоторый, кажется, загружен по умолчанию.

Кроме того, как указывает @phils, cl-concatenateпросто вызывает, appendкогда TYPE есть 'list, вот источник из cl-extra.el:

(defun cl-concatenate (type &rest sequences)
  "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
\n(fn TYPE SEQUENCE...)"
  (pcase type
    (`vector (apply #'vconcat sequences))
    (`string (apply #'concat sequences))
    (`list (apply #'append (append sequences '(nil))))
    (_ (error "Not a sequence type name: %S" type))))

Так что, если вы используете только списки, проще использовать напрямую append, как указал @John Kitchin.

Наконец, @lawlist упомянул nconc:

nconc - это встроенная функция в «C исходном коде».

(nconc & rest LISTS)

Объединить любое количество списков, изменив их. Только последний аргумент не изменяется и не обязательно должен быть списком.

Что это значит:

(nconc '("a" "b" "c") '("d" "e" "f"))
=> ("a" "b" "c" "d" "e" "f")

(setq l1 '("a" "b" "c")
      l2 '("d" "e" "f"))
(nconc l1 l2)
=> ("a" "b" "c" "d" "e" "f")
l1
=> ("a" "b" "c" "d" "e" "f")
l2
=> ("d" "e" "f")

JeanPierre
источник

Спасибо, но похоже, что он возвращает ошибку, если 2-й и 3-й аргументы являются переменными, а не явными списками.

Даниэль

(setq l1 '("a" "b" "c") l2 '("d" "e" "f")) (concatenate 'list l1 l2)работает нормально

ЖанПьер

@Daniele Я подозреваю, что вы пытались заключить в кавычки переменные, что означает, что они не оцениваются в их значениях списка. (т.е. вы хотите, varnameа не 'varname).

Фил

Для полноты я мог бы также упомянуть не-CL способ конкатенации любого типа последовательности в Emacs> = 25: seq-concatenate(после (require 'seq)), хотя это, в свою очередь, просто переносит cl-concatenate.

Василий