VL
Size: a a a
VL
VL
VL
VL
VL
DL
D
D
D
DL
DL
DL
a
DL
Aß
a
(memq x (cdr (memq x list)))
DL
(memq x (cdr (memq x list)))
a
(defun memqn (count elt list)
(dotimes (n count list)
(if list (setq list (cdr (memq elt list)))
(setf count 0))))
Aß
a
memq
возвращать.(defun memqn (count elt list)
(if (and list (eq elt (car list))) list
(dotimes (n count list)
(aif (cdr list) (setq list (memq elt it))
(setq count 0)))))