Jestem naprawdę pomylony z .notacją. Jest '(a . b)lista?
(listp '(a . b))zwraca, tale gdy chcę wiedzieć, jego długość (length '(a . b))powoduje błąd Wrong type argument: listp, b. To samo dotyczy innych funkcji nth,mapcaritp., Wszystkie dają ten sam błąd
Czy jest jakaś funkcja, która mogę rozróżnić '(a b)i '(a . b)?
Kontekst: napotkałem ten problem, gdy chciałem zaimplementować wersję rekurencyjną mapcar. Oto moja implementacja
(defun true-listp (object)
"Return non-`nil' if OBJECT is a true list."
(and (listp object) (null (cdr (last object)))))
(defun recursive-mapcar (func list)
"Evaluates func on elements of the list, then on elements of elements of the list and so forth."
(let ((output nil))
(flet ((comp (a b) nil)
(call-fun-and-save (x) (add-to-list 'output (funcall func x) t 'comp))
(recursion (l)
(mapcar
(lambda (x)
(call-fun-and-save x)
(if (and (true-listp x)) ;; HERE I use true-listp, testing for list or cons is not sufficient
(recursion x)))
l)))
(recursion list))
output))
Używam tego do wyodrębnienia wszystkich określonych tagów z przeanalizowanego HTML. Przykład htmlanalizy
;; buffer 'html'
<html>
<body>
<table style="width:100%">
<tr> <td>Jill</td> <td>Smith</td> <td>50</td> </tr>
<tr> <td>Eve</td> <td>Jackson</td> <td>94</td> </tr>
</table>
</body>
</html>
Następnie wyodrębniam wszystko <td>jako
(with-current-buffer (get-buffer "html")
(let ((data (libxml-parse-html-region (point-max) (point-min))))
;; gat only <td> tags
(-non-nil
(recursive-mapcar
(lambda(x) (and (consp x) (equal 'td (car x)) x))
data))
data
)
)
@Stefan Krótko mówiąc, chcę zaimplementować mapar rekurencyjny, oceniam podaną funkcję na elementach danej listy, następnie na elementach listy, a następnie na elementach elementów listy i tak dalej. Muszę więc wiedzieć, czy element jest prawdziwą listą, czy nie.
—
tom
Jest to przydatne na przykład, gdy analizuję HTML
—
tom
libxml-parse-html-regioni chcę wyodrębnić wszystkie <td>tagi.
Czy możesz nam pokazać konkretny przykład, w którym możesz uzyskać odpowiednią listę, niewłaściwą listę lub coś innego i gdzie musisz inaczej rozpatrzyć 3 sprawy? W większości przypadków, z którymi miałem do czynienia, „właściwe” i „niewłaściwe” przypadki można udostępniać, dopóki nie dojdziemy do właściwego niewłaściwego ogona, więc nie musisz już sprawdzać, czy jest to właściwe, czy nie: po prostu sprawdź, czy to
—
Stefan
conspzamiast tego.
libxml nie zwraca tylko list list. Każda lista reprezentująca element XML ma formę (atrybuty symbolu. Treść). Dlatego twój kod nie powinien stosować mapcar rekurencyjnie do wszystkich elementów list, tylko nad
—
Stefan
cddrlistą (aby pominąć nazwę elementu i atrybuty). Gdy to zrobisz, powinieneś stwierdzić, że wszystkie listy są prawidłowe, a Twój problem zniknie. Naprawi to również błąd w kodzie, w którym możesz pomylić tdatrybut tdelementu.
true-list-pw Elisp po prostu dlatego, że nie został uznany za przydatny wystarczy do jej świadczenia. Rzeczywiście, nie pamiętam, kiedy ostatni raz chciałem sprawdzić, czy lista jest odpowiednia, więc może jeśli podasz nam nieco więcej informacji na temat swojego przypadku użycia, możemy pomóc Ci rozwiązać problem w inny sposób.