Sujet : duplic8
De : No_spamming (at) *nospam* noWhere_7073.org (B. Pym)
Groupes : comp.lang.lispDate : 01. Jul 2024, 23:48:33
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v5v87f$18sjt$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
Erik Naggum wrote:
I prefer to use KEY and TEST keyword arguments that default to #'IDENTITY
and #'EQL.
(defun duplic8 (element list &key (test #'eql) (key #'identity))
(loop for x in list
collect x
when (funcall test (funcall key x) element) collect x))
Scheme
(append-map
(lambda (x) (if (equal? x 'M) (list x x x) (list x)))
'(i M j l))
===>
(i M M M j l)
duplic8