Jak połączyć dwie listy?

Przepraszam, ale elisp nie jest mój najlepszy. Muszę połączyć w ten sposób dwie listy ciągów:

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

Cóż, kolejność nie jest ważna, więc napisałem ten kod:

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

Działa, ale zastanawiam się, czy istnieje funkcja, która już to robi.

Jakieś wskazówki? Z góry dziękuję.

list Daniele
źródło

Zobacz Listy budowania węzłów instrukcji Elisp.

Drew

appendjest poprawną odpowiedzią tutaj, ale byłby to inny (destrukcyjny) sposób (setcdr (last a) b).

Sean Allred

Pracujesz nad listami? dash.el ! (-concat '(1) '(2 3) '(4)) ;; => '(1 2 3 4)

Ehvince

Nigdy nie używaj add-to-listw kodzie Lisp (mówi to w dokumentacji). Zamiast tego użyj push.

Radon Rosborough,

Odpowiedzi:

Możesz także użyć append.

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

John Kitchin
źródło

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

prawnik

Och, tak, rzeczywiście appendwydaje się tutaj lepiej.

JeanPierre,

nconc działa, ale jeśli przechowujesz listy w zmiennych, zostaną one zmodyfikowane przez nconc. Np. (Let ((a '(1 2 3)) (b' (3 4 5))) (nconc ab) a) zmodyfikuje zmienną.

John Kitchin,

FYI cl-concatenateużywa, appendgdy TYPE list, więc obie odpowiedzi dają ten sam wynik.

phils

Tak, to na pewno działa. Dziękujemy wszystkim za pomoc.

Daniele

concatenate to alias dla „cl-concatenate” w „cl.el”.

(łącz sekwencję TYPU ...)

Połącz w ciąg typu TYPE argument SEKWENCJE.

Na przykład

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

Ponieważ jest on zdefiniowany cl, być może będziesz musiał (require 'cl)najpierw, w przeciwnym razie możesz użyć tego, cl-concatenateco wydaje się być domyślnie załadowane.

Ponadto, jak wskazuje @phils, cl-concatenatepo prostu wywołuje, appendgdy TYPE 'list, oto źródło z 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))))

Jeśli więc używasz tylko list, łatwiej jest z nich korzystać bezpośrednio append, jak wskazał @John Kitchin.

Wreszcie @lawlist wspomniał nconc:

nconc to wbudowana funkcja w kodzie źródłowym „C”.

(LISTY nconc i rest)

Łącz dowolną liczbę list, zmieniając je. Tylko ostatni argument nie jest zmieniany i nie musi być listą.

Co to znaczy:

(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")

Jean Pierre
źródło

Dzięki, ale wygląda na to, że zwraca błąd, jeśli 2. i 3. argument są zmiennymi, a nie jawnymi listami.

Daniele

(setq l1 '("a" "b" "c") l2 '("d" "e" "f")) (concatenate 'list l1 l2)działa ok.

JeanPierre

@Daniele Podejrzewam, że próbowałeś zacytować zmienne, co oznacza, że nie są one oceniane według wartości z listy. (tzn. varnamewolisz niż 'varname).

phils

Dla kompletności równie dobrze mogę wspomnieć o innym niż CL sposobie łączenia dowolnego typu sekwencji w Emacsie> = 25: seq-concatenate(po (require 'seq)), chociaż to z kolei po prostu się zawija cl-concatenate.

Basil,